--- gforth/code.fs	1998/12/08 22:02:36	1.8
+++ gforth/code.fs	2000/09/23 15:05:58	1.10
@@ -1,6 +1,6 @@
 \ ASSEMBLER, CODE etc.
 
-\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1999 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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 ;
+