===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/shell.c,v
retrieving revision 1.10
retrieving revision 1.12
diff -u -p -r1.10 -r1.12
--- OpenXM/src/kan96xx/Kan/shell.c	2004/02/05 10:35:04	1.10
+++ OpenXM/src/kan96xx/Kan/shell.c	2004/10/14 10:08:09	1.12
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.9 2003/12/13 13:29:44 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/shell.c,v 1.11 2004/02/23 09:03:42 takayama Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -125,9 +125,13 @@ static struct object KoxShell_test1(struct object ob) 
     rob = testmain(ob);
   }else if (strcmp(cmd,"which")==0) {
     if (n == 2) {
+      pathFinderErrorVerbose(0); 
       rob = KoxWhich(getoa(ob,1),KpoInteger(0));
+      pathFinderErrorVerbose(-1); 
     }else if (n==3) {
+      pathFinderErrorVerbose(0); 
       rob = KoxWhich(getoa(ob,1),getoa(ob,2));
+      pathFinderErrorVerbose(-1); 
     }else{
       errorKan1("%s\n","shell: << which command-name >> or << which command-name path >>");
     }
@@ -180,7 +184,7 @@ static int mysetenv(char *name, char *value, int overw
   char *orig;
   s = (char *)getenv(name);
   if ((s == NULL) || overwrite) {
-	s = (char *) malloc(strlen(name)+strlen(value)+5);
+	s = (char *) mymalloc(strlen(name)+strlen(value)+5);
 	if (s == 0) { fprintf(stderr,"No more memory.\n"); exit(10); }
     strcpy(s,name);
 	strcat(s,"="); strcat(s,value);