--- src/standard.c.orig	Wed Apr 14 02:24:01 2004
+++ src/standard.c	Tue Jul 20 08:44:12 2004
@@ -670,10 +670,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));
 }