--- numbers.test.~1.16.~	2003-03-26 09:11:21.000000000 +1000
+++ numbers.test	2003-04-06 15:09:42.000000000 +1000
@@ -788,6 +788,11 @@
     (pass-if "n = fixnum-min - 1"
       (eqv? (- (- fixnum-min 1)) (gcd 0 (- fixnum-min 1)))))
 
+  (with-test-prefix "(n 0)"
+
+    (pass-if "n = 2^128 * fixnum-max"
+      (eqv? (ash fixnum-max 128) (gcd (ash fixnum-max 128) 0))))
+
   (with-test-prefix "(1 n)"
 
     (pass-if "n = 0"