--- standard.c.orig	Tue Dec  8 07:09:07 1998
+++ standard.c	Mon Oct 22 16:50:45 2001
@@ -624,10 +624,12 @@
   x = real(pop(&a));
   y = real(pop(&a));
 
+#if 0
   if (x == 0.0 && y == 0.0) {
     undefined = TRUE;
     push(Ginteger(&a,0));
   }
+#endif
   push(Gcomplex(&a,atan2(y,x)/ang2rad,0.0));
 }