diff --git a/core/math/math.factor b/core/math/math.factor
index fa81ce3e2a..4444b6daf0 100644
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -87,7 +87,7 @@ GENERIC: neg? ( x -- -x )
 
 : when-zero ( ..a n quot: ( ..a -- ..b ) -- ..b ) [ ] if-zero ; inline
 
-: unless-zero ( ..a n quot: ( ..a -- ..b ) -- ..b ) [ ] swap if-zero ; inline
+: unless-zero ( ..a n quot: ( ..a n -- ..b ) -- ..b ) [ ] swap if-zero ; inline
 
 UNION: integer fixnum bignum ;