diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 5833f49eda..a00fe06278 100644
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -68,8 +68,8 @@ TUPLE: hash-set
     [ (adjoin) drop ] curry each ; inline
 
 : hash-large? ( hash -- ? )
-    [ count>> 3 fixnum*fast 1 fixnum+fast ]
-    [ array>> length>> 1 fixnum-shift-fast ] bi fixnum> ; inline
+    [ count>> 3 fixnum*fast ]
+    [ array>> length>> 1 fixnum-shift-fast ] bi fixnum>= ; inline
 
 : each-member ( array quot: ( elt -- ) -- )
     [ if ] curry [ dup tombstone? [ drop ] ] prepose each ; inline