--- gforth/hash.fs	1994/10/18 15:51:18	1.4
+++ gforth/hash.fs	1994/11/24 16:55:15	1.6
@@ -91,6 +91,16 @@ Create hashsearch  ' hash-find A, ' hash
 addall          \ Baum aufbauen
 \ Baumsuche ist installiert.
 
+: hash-cold  ( -- ) Defers 'cold
+  HashPointer off  HashTable off  HashIndex off
+  voclink
+  BEGIN  @ dup @  WHILE
+         dup cell - @ >r
+         dup 'initvoc
+         r> over cell - !
+  REPEAT  drop ;
+' hash-cold IS 'cold
+
 : .words  ( -- )
   base @ >r hex HashTable @  Hashlen 0
   DO  cr  i 2 .r ." : " dup i cells +