diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index 577dd153a1..8cfa671a8b 100644
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -167,6 +167,6 @@ M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
 
 M: hashtable hashcode*
     [
-        dup assoc-size 1 number=
+        dup assoc-size 1 eq?
         [ assoc-hashcode ] [ nip assoc-size ] if
     ] recursive-hashcode ;
diff --git a/core/sbufs/sbufs.factor b/core/sbufs/sbufs.factor
index e45d98a3df..5a30654f03 100644
--- a/core/sbufs/sbufs.factor
+++ b/core/sbufs/sbufs.factor
@@ -33,7 +33,7 @@ M: string new-resizable drop <sbuf> ;
 M: string like
     drop dup string? [
         dup sbuf? [
-            dup length over underlying>> length number= [
+            dup length over underlying>> length eq? [
                 underlying>> dup reset-string-hashcode
             ] [
                 >string
diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 8ff5a7caf4..944286cce5 100644
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -20,7 +20,7 @@ PRIVATE>
 
 M: string equal?
     over string? [
-        over hashcode over hashcode number=
+        over hashcode over hashcode eq?
         [ sequence= ] [ 2drop f ] if
     ] [
         2drop f