===================================================================
RCS file: /home/cvs/OpenXM/src/asir-contrib/testing/noro/ndbf.rr,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- OpenXM/src/asir-contrib/testing/noro/ndbf.rr	2010/04/28 05:58:43	1.10
+++ OpenXM/src/asir-contrib/testing/noro/ndbf.rr	2010/04/28 15:27:40	1.11
@@ -507,7 +507,7 @@ def ann_fa(F,A)
 		B = car(S);
 		for ( R = []; B != []; B = cdr(B) )
 			if ( H = car(car(B)) )
-				R = cons(H,R);
+				R = cons(ptozp(H),R);
 	} else {
 		/* colon method */
 		for ( I = 0; I < D; I++ )