Index: numbers.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/numbers.c,v
retrieving revision 1.177
diff -u -u -F^[[:alpha:]$_] -r1.177 numbers.c
--- numbers.c	5 Apr 2003 19:10:22 -0000	1.177
+++ numbers.c	6 Apr 2003 22:48:02 -0000
@@ -708,6 +708,8 @@
         {
           unsigned long result;
           long yy = SCM_INUM (y);
+          if (yy == 0)
+            return scm_abs (x);
           if (yy < 0) yy = -yy;
           result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy);
           scm_remember_upto_here_1 (x);