--- gforth/blocks.fs	2003/10/30 14:18:41	1.42
+++ gforth/blocks.fs	2006/10/11 19:18:51	1.45
@@ -64,7 +64,10 @@ User block-offset ( -- addr ) \ gforth
     buffer-struct buffers * %alloc dup block-buffers ! ( addr )
     buffer-struct %size buffers * erase ;
 
-' block-cold INIT8 chained
+:noname ( -- )
+    defers 'cold
+    block-cold
+; is 'cold
 
 block-cold