--- gforth/hash.fs	2003/03/09 15:16:50	1.33
+++ gforth/hash.fs	2006/05/01 09:45:56	1.34
@@ -193,7 +193,10 @@ has? cross 0=
 \  REPEAT  drop 
 [ has? ec [IF] ] ." Done" cr [ [THEN] ] ;
 
-' hash-cold INIT8 chained
+:noname ( -- )
+    defers 'cold
+    hash-cold
+; is 'cold
 
 : .words  ( -- )
   base @ >r hex HashTable  Hashlen 0