===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ecart.sm1,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -p -r1.33 -r1.34
--- OpenXM/src/kan96xx/Doc/ecart.sm1	2004/09/10 13:20:22	1.33
+++ OpenXM/src/kan96xx/Doc/ecart.sm1	2004/09/13 11:24:10	1.34
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/ecart.sm1,v 1.32 2004/08/31 05:30:20 takayama Exp $ 
+% $OpenXM: OpenXM/src/kan96xx/Doc/ecart.sm1,v 1.33 2004/09/10 13:20:22 takayama Exp $ 
 (hol_loaded) boundp { }
 { [(parse) (hol.sm1) pushfile] extension } ifelse
 %[(parse) (appell.sm1) pushfile] extension
@@ -60,7 +60,7 @@
         exit
       } {  } ifelse
 
-      ans [opt i get opt i 1 add get ]  append /ans set
+      ans [opt i get opt i 1 add get ]  join /ans set
       exit
      } loop
     } for