--- gforth/kernel/comp.fs	2002/11/24 13:54:02	1.44
+++ gforth/kernel/comp.fs	2002/12/03 10:47:50	1.45
@@ -381,8 +381,13 @@ is basic-block-end
 \ \ Strings							22feb93py
 
 : S, ( addr u -- )
+    \ allot string as counted string
     here over char+ allot  place align ;
 
+: mem, ( addr u -- )
+    \ allot the memory block HERE (do alignment yourself)
+    here over allot swap move ;
+
 : ," ( "string"<"> -- )
     [char] " parse s, ;