===================================================================
RCS file: /home/cvs/OpenXM/src/k097/debug/ahg.k,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -p -r1.1.1.1 -r1.2
--- OpenXM/src/k097/debug/ahg.k	1999/10/08 02:12:15	1.1.1.1
+++ OpenXM/src/k097/debug/ahg.k	2001/01/08 05:26:51	1.2
@@ -186,7 +186,7 @@ def zindicial0(input,n,m) {
 def zrho(f,n) {
   local ans,i,top,w,rz;
   ans = 0;
-  rz = Ringp(f);
+  rz = GetRing(f);
   while(true) {
     if ( f == Poly("0")) sm1(" exit ");
     top = Init(f);