===================================================================
RCS file: /home/cvs/OpenXM/src/k097/debug/asir0.k,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/k097/debug/asir0.k	2001/01/05 11:14:27	1.3
+++ OpenXM/src/k097/debug/asir0.k	2001/01/08 05:26:51	1.4
@@ -42,7 +42,7 @@ def Cancel(f)  {
   if (IsInteger(f)) return(f);
   if (IsPolynomial(f)) {
     if (f == Poly("0")) return(0);
-    if (Characteristic(Ringp(f)) != 0) return(f);
+    if (Characteristic(GetRing(f)) != 0) return(f);
     if (IsConstant(f)) return(DC(f,"integer"));
     return(f);
   }