--- gforth/hash.fs	2002/11/24 19:49:45	1.29
+++ gforth/hash.fs	2002/12/07 18:07:19	1.30
@@ -166,7 +166,7 @@ const Create (hashsearch-map)
   [ [IFUNDEF] allocate ]
   ABORT" no more space in hashtable"
   [ [ELSE] ]
-  HashPop @ 1 hashbits lshift >= or
+  HashPop @ hashlen 2* >= or
   IF  hashdouble  THEN 
   [ [THEN] ] ; is hash-alloc