===================================================================
RCS file: /home/cvs/OpenXM/src/asir-port/cgi/r-fd.rr,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/asir-port/cgi/r-fd.rr	2014/07/27 03:18:44	1.1
+++ OpenXM/src/asir-port/cgi/r-fd.rr	2014/07/31 06:24:11	1.2
@@ -1,4 +1,6 @@
+/* $OpenXM$ */
 load("tk_fd.rr")$
+import("tk_r.rr")$
 def r_ahvec(A,B,C,Y) { 
   R=tk_fd.ygahvec(A,B,C,Y|all=1);
   Gamma=R[1];
@@ -10,6 +12,7 @@ def r_ahvec(A,B,C,Y) { 
   Ans=cons(Z,Der2);
   /*  Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */
   Fans=map(deval,Ans);
+  Fans = tk_r.asir2r_c(Fans);
   return Fans;
 }
 end$