diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 284d6fc8d9..241261e3bf 100644
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -114,7 +114,7 @@ PRIVATE>
 : gcd ( x y -- a d )
     [ 0 1 ] 2dip (gcd) dup 0 < [ neg ] when ; foldable
 
-: gcd* ( a b -- c )
+: gcd* ( x y -- d )
     (gcd*) dup 0 < [ neg ] when ; foldable
 
 : lcm ( a b -- c )