--- gforth/prims2x.fs	2001/11/11 22:33:31	1.100
+++ gforth/prims2x.fs	2001/12/09 19:12:45	1.101
@@ -647,7 +647,7 @@ stack inst-stream IP Cell
     2drop type ;
 
 : print-entry ( -- )
-    ." CASE 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