diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index c13aa079c5..b56e2a4f2c 100644
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -113,7 +113,13 @@ PRIVATE>
 
 MATH: fast-gcd ( x y -- d ) foldable
 
-M: real fast-gcd gcd nip ; inline
+<PRIVATE
+
+: simple-gcd ( x y -- d ) gcd nip ; inline
+
+PRIVATE>
+
+M: real fast-gcd simple-gcd ; inline
 
 M: bignum fast-gcd bignum-gcd ; inline