Index: Singular/gnumpc.cc
===================================================================
--- Singular/gnumpc.cc	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/gnumpc.cc	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gnumpc.cc,v 1.2 1999-06-23 08:26:04 wenk Exp $ */
+/* $Id: gnumpc.cc,v 1.3 1999-06-29 09:03:42 wenk Exp $ */
 /*
 * ABSTRACT: computations with GMP complex floating-point numbers
@@ -353,4 +353,8 @@
     *a=(number)aa;
   }
+  else 
+  {
+    *a=(number) new gmp_complex((long)1);
+  }
   return s;
 }
Index: Singular/mpr_base.cc
===================================================================
--- Singular/mpr_base.cc	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/mpr_base.cc	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -2,5 +2,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_base.cc,v 1.2 1999-06-28 16:06:24 Singular Exp $ */
+/* $Id: mpr_base.cc,v 1.3 1999-06-29 09:03:43 wenk Exp $ */
 
 /*
Index: Singular/mpr_base.h
===================================================================
--- Singular/mpr_base.h	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/mpr_base.h	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -4,5 +4,5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_base.h,v 1.2 1999-06-28 16:06:25 Singular Exp $ */
+/* $Id: mpr_base.h,v 1.3 1999-06-29 09:03:44 wenk Exp $ */
 
 /*
Index: Singular/mpr_inout.cc
===================================================================
--- Singular/mpr_inout.cc	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/mpr_inout.cc	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -2,5 +2,6 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_inout.cc,v 1.2 1999-06-28 16:06:28 Singular Exp $ */
+
+/* $Id: mpr_inout.cc,v 1.3 1999-06-29 09:03:45 wenk Exp $ */
 
 /*
Index: Singular/mpr_inout.h
===================================================================
--- Singular/mpr_inout.h	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/mpr_inout.h	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -4,5 +4,6 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_inout.h,v 1.2 1999-06-28 16:06:28 Singular Exp $ */
+
+/* $Id: mpr_inout.h,v 1.3 1999-06-29 09:03:45 wenk Exp $ */
 
 /*
Index: Singular/mpr_numeric.cc
===================================================================
--- Singular/mpr_numeric.cc	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/mpr_numeric.cc	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -2,5 +2,6 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_numeric.cc,v 1.2 1999-06-28 16:06:29 Singular Exp $ */
+
+/* $Id: mpr_numeric.cc,v 1.3 1999-06-29 09:03:46 wenk Exp $ */
 
 /*
@@ -483,5 +484,5 @@
     break;
   default:
-    Werror("rootContainer::solver: Unsupported polish mode %d! Valid are [1,2,3].",polishmode);
+    Werror("rootContainer::solver: Unsupported polish mode %d! Valid are [0,1,2].",polishmode);
     found_roots= false;
   } // switch
Index: Singular/mpr_numeric.h
===================================================================
--- Singular/mpr_numeric.h	(revision 6035d5fe0c5ee43d9a8eb9a890ecdfb7fd03236f)
+++ Singular/mpr_numeric.h	(revision 9a6c4ae84f7d2709f65215910c1238b8642ea6ff)
@@ -4,5 +4,6 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_numeric.h,v 1.2 1999-06-28 16:06:30 Singular Exp $ */
+
+/* $Id: mpr_numeric.h,v 1.3 1999-06-29 09:03:46 wenk Exp $ */
 
 /*
@@ -17,7 +18,7 @@
 
 // define polish mode when finding roots
-#define PM_NONE    1
-#define PM_POLISH  2
-#define PM_CORRUPT 3
+#define PM_NONE    0 
+#define PM_POLISH  1
+#define PM_CORRUPT 2
 //<-
 
