Index: tag.c
===================================================================
RCS file: /home2/cvsroot/ccvs/src/tag.c,v
retrieving revision 1.87
diff -c -r1.87 tag.c
*** tag.c       2000/10/02 17:45:27     1.87
--- tag.c       2000/11/28 17:34:40
***************
*** 208,213 ****
--- 208,215 ----
      }
       
      /* start the recursion processor */
+     history_write( 'T', ( delete_flag ? "D" : ( numtag ? numtag : 
+                  ( date ? date : "A" ) ) ), symtag, "", "" );
      err = start_recursion (tag_fileproc, tag_filesdoneproc, tag_dirproc,
                           (DIRLEAVEPROC) NULL, NULL, argc, argv, local,
                           W_LOCAL, 0, 0, (char *) NULL, 1);