===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/ext.c,v
retrieving revision 1.1.1.1
retrieving revision 1.4
diff -u -p -r1.1.1.1 -r1.4
--- OpenXM/src/kan96xx/Kan/ext.c	1999/10/08 02:12:02	1.1.1.1
+++ OpenXM/src/kan96xx/Kan/ext.c	2000/03/09 12:04:52	1.4
@@ -1,3 +1,4 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.3 2000/02/24 12:33:47 takayama Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -94,7 +95,8 @@ struct object Kextension(struct object obj)
   struct stat buf;
   char **argv;
   FILE *fp;
-  void (*oldsig)();  
+  void (*oldsig)();
+  extern SecureMode;
 
   if (obj.tag != Sarray) errorKan1("%s\n","Kextension(): The argument must be an array.");
   size = getoaSize(obj);
@@ -174,7 +176,9 @@ struct object Kextension(struct object obj)
       }else{
 	/* success */
 	putoa(rob,0,KpoInteger(0));
-	putoa(rob,1,newObjectArray(0)); /* We have not yet read buf */
+    obj3 = newObjectArray(1);
+	putoa(obj3,0,KpoInteger((int) buf.st_size));
+	putoa(rob,1,obj3); /* We have not yet read buf fully */
       }
     }else if (strcmp(key,"forkExec")==0) {
       if (size != 4) errorKan1("%s\n","[(forkExec) argList fdList sigblock] extension.");