--- gforth/prims2x.fs	2002/12/31 14:50:53	1.126
+++ gforth/prims2x.fs	2002/12/31 15:05:58	1.127
@@ -935,7 +935,7 @@ variable tail-nextp2 \ xt to execute for
 \      cr ;
 
 : output-label ( -- )  
-    ." INST_ADDR(" prim prim-c-name 2@ type ." )" cr ;
+    ." INST_ADDR(" prim prim-c-name 2@ type ." )," cr ;
 
 : output-alias ( -- ) 
     ( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;