--- gforth/kernel/comp.fs	2003/03/09 15:17:05	1.54
+++ gforth/kernel/comp.fs	2003/03/20 10:07:54	1.55
@@ -108,7 +108,7 @@ defer header ( -- ) \ gforth
     dup c, here swap chars dup allot move ;
 
 : longstring, ( c-addr u -- ) \ gforth
-    \G puts down string as cstring
+    \G puts down string as longcstring
     dup , here swap chars dup allot move ;
 
 : header, ( c-addr u -- ) \ gforth