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