===================================================================
RCS file: /home/cvs/OpenXM/src/k097/debug/asir0.k,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM/src/k097/debug/asir0.k	2001/01/04 12:29:32	1.2
+++ 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);
   }
@@ -56,12 +56,12 @@ HelpAdd(["Cancel",["Cancel the greatest common multipl
 
 
 
-/* BUG: It has not yet been rewritten. */
+/* BUG: It has not yet been rewritten. 
 def Primadec(f,g)  {
   sm1(f,g," primadec /FunctionValue set");
   sm1(" clean-workfiles ");
 }
 HelpAdd(["Primadec",[" Not Yet. <<need asir, start k0 with -f option.>>"]]);
-
+*/