diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index afd83d4458..2ccbbe4005 100644
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -22,17 +22,15 @@ IN: math.bitwise
     [ shift ] dip 2^ wrap ; inline
 
 : bitroll ( x s w -- y )
-    [ wrap ] keep
-    [ shift-mod ]
-    [ [ - ] keep shift-mod ] 3bi bitor ; inline
+    [ shift-mod ] [ [ - ] keep shift-mod ] 3bi bitor ; inline
 
 : bitroll-32 ( n s -- n' ) 32 bitroll ; inline
 
-HINTS: bitroll-32 bignum fixnum ;
+HINTS: bitroll-32 { bignum fixnum } { fixnum fixnum } ;
 
 : bitroll-64 ( n s -- n' ) 64 bitroll ; inline
 
-HINTS: bitroll-64 bignum fixnum ;
+HINTS: bitroll-64 { bignum fixnum } { fixnum fixnum } ;
 
 ! 32-bit arithmetic
 : w+ ( int int -- int ) + 32 bits ; inline