--- gforth/hash.fs	1996/10/20 20:35:24	1.16
+++ gforth/hash.fs	1996/11/15 21:19:29	1.17
@@ -103,10 +103,10 @@ Create hashsearch-map ( -- wordlist-map
   HashTable Hashlen cells erase THEN
   HashIndex @ over !  1 HashIndex +!
   HashIndex @ Hashlen >=
-  IF  clearhash
+  IF  HashTable >r clearhash
       1 hashbits 1+ dup  to hashbits  lshift  to hashlen
-      HashTable free
-      addall
+      r> free >r  0 to HashTable
+      addall r> throw
   THEN ;
 
 : (initvoc) ( addr -- )