diff --git a/extra/math/hashcodes/hashcodes.factor b/extra/math/hashcodes/hashcodes.factor
index 42abe8cf85..f0d7197e68 100644
--- a/extra/math/hashcodes/hashcodes.factor
+++ b/extra/math/hashcodes/hashcodes.factor
@@ -46,5 +46,4 @@ M: float number-hashcode ( x -- h )
 
 M: complex number-hashcode ( x -- h )
     >rect [ number-hashcode ] bi@ 1000003 * +
-    [ M 1 - bitand ] [ M bitand ] bi -
-    dup -1 = [ drop -2 ] when ;
+    cell-bits on-bits bitand dup -1 = [ drop -2 ] when ;