===================================================================
RCS file: /home/cvs/OpenXM/src/k097/debug/loadpackage.kk,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/k097/debug/loadpackage.kk	1999/10/08 02:12:16	1.1
+++ OpenXM/src/k097/debug/loadpackage.kk	2001/01/08 05:26:51	1.2
@@ -22,8 +22,8 @@ def diff0(f,x) {
   local dx,ans;
   if (!IsPolynomial(f)) return(Poly("0"));
   if (f == Poly("0")) return(f);
-  dx = PolyR(AddString(["D",ToString(x)]),Ringp(f));
-  ans = Replace(dx*f,[[dx,Poly("0")],[h,PolyR("1",Ringp(f))]]);
+  dx = PolyR(AddString(["D",ToString(x)]),GetRing(f));
+  ans = Replace(dx*f,[[dx,Poly("0")],[h,PolyR("1",GetRing(f))]]);
   return(ans);
 }