--- gforth/prims2x.fs	2001/06/16 22:53:36	1.98
+++ gforth/prims2x.fs	2001/12/09 19:12:45	1.101
@@ -647,7 +647,7 @@ stack inst-stream IP Cell
     2drop type ;
 
 : print-entry ( -- )
-    ." I_" prim prim-c-name 2@ type ." :" ;
+    ." LABEL(" prim prim-c-name 2@ type ." ):" ;
     
 : output-c ( -- ) 
  print-entry ."  /* " prim prim-name 2@ type ."  ( " prim prim-stack-string 2@ type ." ) */" cr
@@ -799,6 +799,11 @@ stack inst-stream IP Cell
     name-line @ 0 .r
     ." ,0" cr ;
 
+: output-vi-tag ( -- )
+    name-filename 2@ type #tab emit
+    prim prim-name 2@ type #tab emit
+    ." /^" prim prim-name 2@ type ."  *(/" cr ;
+
 [IFDEF] documentation
 : register-doc ( -- )
     prim prim-name 2@ documentation ['] create insert-wordlist