===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/Hgfs.c,v
retrieving revision 1.30
retrieving revision 1.33
diff -u -p -r1.30 -r1.33
--- OpenXM_contrib2/asir2000/engine/Hgfs.c	2003/01/15 10:21:17	1.30
+++ OpenXM_contrib2/asir2000/engine/Hgfs.c	2015/08/14 13:51:54	1.33
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.29 2002/11/22 08:44:57 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.32 2015/08/08 14:19:41 fujimoto Exp $ */
 
 #include "ca.h"
 #include "inline.h"
@@ -1005,7 +1005,7 @@ void sfsqfr(P f,DCP *dcp)
 	} else if ( !NEXT(vl) )
 		sfusqfr(f,dcp);
 	else
-		sqfrsf(f,dcp);
+		sqfrsf(vl,f,dcp);
 }
 
 void sfusqfr(P f,DCP *dcp)