Index: Singular/grammar.cc
===================================================================
--- Singular/grammar.cc	(revision 92d6849100514317f65f8b2200dd0ec32ce68b7c)
+++ Singular/grammar.cc	(revision db45a2a06453f84672a9bd3c4a2c2230cb7fe17d)
@@ -324,4 +324,5 @@
 #include <misc/options.h>
 #include <Singular/stype.h>
+#include <Singular/fehelp.h>
 #include <Singular/ipid.h>
 #include <misc/intvec.h>
@@ -788,7 +789,7 @@
     1084,  1097,  1096,  1104,  1109,  1116,  1124,  1136,  1152,  1171,
     1175,  1179,  1184,  1188,  1192,  1196,  1200,  1204,  1209,  1215,
-    1221,  1227,  1233,  1239,  1245,  1251,  1263,  1270,  1274,  1312,
-    1322,  1335,  1335,  1338,  1410,  1414,  1443,  1456,  1473,  1482,
-    1487,  1495,  1507,  1526,  1537,  1557,  1581,  1587,  1599,  1606
+    1221,  1227,  1233,  1239,  1245,  1251,  1263,  1270,  1274,  1311,
+    1321,  1334,  1334,  1337,  1409,  1413,  1442,  1455,  1472,  1481,
+    1486,  1494,  1506,  1525,  1536,  1556,  1580,  1586,  1598,  1605
 };
 #endif
@@ -2308,5 +2309,5 @@
               if (strcmp(tmp,yyvsp[0].name)!=0)
               {
-                nlRead(yyvsp[0].name,&n);
+                n_Read(yyvsp[0].name,&n,coeffs_BIGINT);
                 yyval.lv.rtyp=BIGINT_CMD;
                 yyval.lv.data = n;
@@ -3275,5 +3276,5 @@
 
   case 149:
-#line 1313 "grammar.y"
+#line 1312 "grammar.y"
     {
             const char *ring_name = yyvsp[0].lv.name;
@@ -3285,5 +3286,5 @@
 
   case 150:
-#line 1323 "grammar.y"
+#line 1322 "grammar.y"
     {
             if ((yyvsp[-1].i!=LIB_CMD)||(iiLibCmd(yyvsp[0].name,TRUE,TRUE,TRUE)))
@@ -3299,5 +3300,5 @@
 
   case 153:
-#line 1339 "grammar.y"
+#line 1338 "grammar.y"
     {
             if ((yyvsp[-1].i==KEEPRING_CMD) && (myynest==0))
@@ -3371,5 +3372,5 @@
 
   case 154:
-#line 1411 "grammar.y"
+#line 1410 "grammar.y"
     {
             type_cmd(&(yyvsp[0].lv));
@@ -3378,5 +3379,5 @@
 
   case 155:
-#line 1415 "grammar.y"
+#line 1414 "grammar.y"
     {
             //Print("typ is %d, rtyp:%d\n",$1.Typ(),$1.rtyp);
@@ -3404,5 +3405,5 @@
 
   case 156:
-#line 1444 "grammar.y"
+#line 1443 "grammar.y"
     {
             int i; TESTSETINT(yyvsp[-2].lv,i);
@@ -3420,5 +3421,5 @@
 
   case 157:
-#line 1457 "grammar.y"
+#line 1456 "grammar.y"
     {
             if (currentVoice->ifsw==1)
@@ -3440,5 +3441,5 @@
 
   case 158:
-#line 1474 "grammar.y"
+#line 1473 "grammar.y"
     {
             int i; TESTSETINT(yyvsp[-2].lv,i);
@@ -3452,5 +3453,5 @@
 
   case 159:
-#line 1483 "grammar.y"
+#line 1482 "grammar.y"
     {
             if (exitBuffer(BT_break)) YYERROR;
@@ -3460,5 +3461,5 @@
 
   case 160:
-#line 1488 "grammar.y"
+#line 1487 "grammar.y"
     {
             if (contBuffer(BT_break)) YYERROR;
@@ -3468,5 +3469,5 @@
 
   case 161:
-#line 1496 "grammar.y"
+#line 1495 "grammar.y"
     {
             /* -> if(!$2) break; $3; continue;*/
@@ -3480,5 +3481,5 @@
 
   case 162:
-#line 1508 "grammar.y"
+#line 1507 "grammar.y"
     {
             /* $2 */
@@ -3499,5 +3500,5 @@
 
   case 163:
-#line 1527 "grammar.y"
+#line 1526 "grammar.y"
     {
             procinfov pi;
@@ -3513,5 +3514,5 @@
 
   case 164:
-#line 1538 "grammar.y"
+#line 1537 "grammar.y"
     {
             idhdl h = enterid(yyvsp[-2].name,myynest,PROC_CMD,&IDROOT,TRUE);
@@ -3536,5 +3537,5 @@
 
   case 165:
-#line 1558 "grammar.y"
+#line 1557 "grammar.y"
     {
             omFree((ADDRESS)yyvsp[-1].name);
@@ -3560,5 +3561,5 @@
 
   case 166:
-#line 1582 "grammar.y"
+#line 1581 "grammar.y"
     {
 	    // decl. of type proc p(int i)
@@ -3569,5 +3570,5 @@
 
   case 167:
-#line 1588 "grammar.y"
+#line 1587 "grammar.y"
     {
 	    // decl. of type proc p(i)
@@ -3581,5 +3582,5 @@
 
   case 168:
-#line 1600 "grammar.y"
+#line 1599 "grammar.y"
     {
             if(iiRETURNEXPR==NULL) YYERROR;
@@ -3591,5 +3592,5 @@
 
   case 169:
-#line 1607 "grammar.y"
+#line 1606 "grammar.y"
     {
             if (yyvsp[-2].i==RETURN)
@@ -3607,5 +3608,5 @@
 
 /* Line 1010 of yacc.c.  */
-#line 3609 "grammar.cc"
+#line 3608 "grammar.cc"
 
 
Index: Singular/grammar.y
===================================================================
--- Singular/grammar.y	(revision 92d6849100514317f65f8b2200dd0ec32ce68b7c)
+++ Singular/grammar.y	(revision db45a2a06453f84672a9bd3c4a2c2230cb7fe17d)
@@ -20,4 +20,5 @@
 #include <misc/options.h>
 #include <Singular/stype.h>
+#include <Singular/fehelp.h>
 #include <Singular/ipid.h>
 #include <misc/intvec.h>
@@ -569,5 +570,5 @@
               if (strcmp(tmp,$1)!=0)
               {
-                nlRead($1,&n);
+                n_Read($1,&n,coeffs_BIGINT);
                 $$.rtyp=BIGINT_CMD;
                 $$.data = n;
Index: Singular/ipid.cc
===================================================================
--- Singular/ipid.cc	(revision 92d6849100514317f65f8b2200dd0ec32ce68b7c)
+++ Singular/ipid.cc	(revision db45a2a06453f84672a9bd3c4a2c2230cb7fe17d)
@@ -40,4 +40,8 @@
 omBin idrec_bin = omGetSpecBin(sizeof(idrec));
 
+coeffs coeffs_BIGINT;
+
+FILE   *feFilePending; /*temp. storage for grammar.y */
+
 proclevel *procstack=NULL;
 #define TEST
Index: Singular/ipid.h
===================================================================
--- Singular/ipid.h	(revision 92d6849100514317f65f8b2200dd0ec32ce68b7c)
+++ Singular/ipid.h	(revision db45a2a06453f84672a9bd3c4a2c2230cb7fe17d)
@@ -132,4 +132,9 @@
 extern omBin sip_package_bin;
 extern omBin idrec_bin;
+extern omBin sleftv_bin;
+
+extern coeffs coeffs_BIGINT;
+
+extern FILE   *feFilePending; /*temp. storage for grammar.y */
 #endif
 
Index: Singular/ipshell.h
===================================================================
--- Singular/ipshell.h	(revision 92d6849100514317f65f8b2200dd0ec32ce68b7c)
+++ Singular/ipshell.h	(revision db45a2a06453f84672a9bd3c4a2c2230cb7fe17d)
@@ -208,5 +208,7 @@
 #endif
 void rSetHdl(idhdl h);
-
-#endif
-
+ring rInit(sleftv* pn, sleftv* rv, sleftv* ord);
+idhdl rFindHdl(ring r, idhdl n, idhdl w);
+
+#endif
+
Index: Singular/misc_ip.cc
===================================================================
--- Singular/misc_ip.cc	(revision 92d6849100514317f65f8b2200dd0ec32ce68b7c)
+++ Singular/misc_ip.cc	(revision db45a2a06453f84672a9bd3c4a2c2230cb7fe17d)
@@ -1115,4 +1115,5 @@
   currPackHdl=h;
   basePackHdl=h;
+  coeffs_BIGINT=nInitChar(n_Q,NULL);
 
 // random generator: -----------------------------------------------
