--- gforth/code.fs	1998/12/08 22:02:36	1.8
+++ gforth/code.fs	1999/12/03 18:24:21	1.9
@@ -24,7 +24,7 @@
 
 vocabulary assembler ( -- ) \ tools-ext
 
-: init-asm ( -- )
+: init-asm ( -- ) \ gforth
     also assembler ;
 
 : code ( "name" -- colon-sys )	\ tools-ext
@@ -53,3 +53,4 @@ interpret/compile: ;code ( compilation.
     ( end a code definition )
     lastxt here over - flush-icache
     previous ?struc reveal ;
+