diff -ruN klic-3.003-extio-shared/compiler/klic.c klic-3.003-2001-11-18/compiler/klic.c
--- klic-3.003-extio-shared/compiler/klic.c	Fri Jul 28 11:01:40 2000
+++ klic-3.003-2001-11-18/compiler/klic.c	Sun Nov 18 15:16:10 2001
@@ -469,7 +469,7 @@
       char tmpbuf[256];
       (void)sprintf(tmpbuf, "%s%s", name, inf->ext);
       exec_command("Compilation failed for file %s",
-		   tmpbuf, inf->ext, noop);
+		   tmpbuf, noop);
     }
   }
 }
diff -ruN klic-3.003-extio-shared/include/klic/control.h klic-3.003-2001-11-18/include/klic/control.h
--- klic-3.003-extio-shared/include/klic/control.h	Fri Jul 28 11:01:41 2000
+++ klic-3.003-2001-11-18/include/klic/control.h	Sun Nov 18 15:19:38 2001
@@ -43,7 +43,7 @@
 
 #define last_case_pred(p, label) default: goto label;
 
-#if ( defined(DIST) && defined(USE_REDCTION_COUNT) )
+#if ( defined(DIST) && defined(USE_REDUCTION_COUNT) )
 #define loop_within_module(f)				\
 { \
   module (*func)(); \
diff -ruN klic-3.003-extio-shared/include/klic/gg_macro.h klic-3.003-2001-11-18/include/klic/gg_macro.h
--- klic-3.003-extio-shared/include/klic/gg_macro.h	Fri Jul 28 11:01:41 2000
+++ klic-3.003-2001-11-18/include/klic/gg_macro.h	Sun Nov 18 15:21:07 2001
@@ -37,7 +37,7 @@
 #endif
 
 #define GG_FAIL(errmsg) fatal(errmsg)
-#define GG_ERROR_IN_IN(errmsg) \
+#define GG_ERROR_IN_NEW(errmsg) \
   G_error(errmsg, "creation", "generator", GG_CLASS_NAME_STRING)
 #define GG_SUCCEEDED GENERIC_SUCCEEDED
 #define GG_GCREQUEST GENERIC_GCREQUEST
diff -ruN klic-3.003-extio-shared/runtime/debug.c klic-3.003-2001-11-18/runtime/debug.c
--- klic-3.003-extio-shared/runtime/debug.c	Fri Jul 28 11:01:41 2000
+++ klic-3.003-2001-11-18/runtime/debug.c	Sun Nov 18 15:29:40 2001
@@ -8,6 +8,7 @@
 #include <setjmp.h>
 #include <ctype.h>
 #include <errno.h>
+#include <string.h>
 #include <klic/basic.h>
 #include <klic/struct.h>
 #include <klic/primitives.h>
@@ -100,7 +101,7 @@
 #ifdef DECL_SYS_ERRLIST
   extern char *sys_errlist[];
 #endif
-  (void) sprintf(buf, "%s: %s\n", where, sys_errlist[errno]);
+  (void) sprintf(buf, "%s: %s\n", where, strerror(errno));
   bufp = buf + strlen(buf);
   (void) sprintf(bufp, format, a0, a1, a2, a3, a4, a5, a6, a7);
   fatal(buf);
diff -ruN klic-3.003-extio-shared/runtime/gunix.kl1 klic-3.003-2001-11-18/runtime/gunix.kl1
--- klic-3.003-extio-shared/runtime/gunix.kl1	Thu May  3 23:23:46 2001
+++ klic-3.003-2001-11-18/runtime/gunix.kl1	Sun Nov 18 15:11:35 2001
@@ -1283,11 +1283,11 @@
   Fdopen(fd2[0],%3,%f,\"r\"); Fdopen(fd2[1],%4,%f,\"w\");
   pid = fork();
   if (pid==0) {
-    fclose(FilePointer(%2));
-    fclose(FilePointer(%3));
-  } else {
     fclose(FilePointer(%1));
     fclose(FilePointer(%4));
+  } else {
+    fclose(FilePointer(%2));
+    fclose(FilePointer(%3));
   }
   %0 = makeint(pid);
 }":[PID-int,