--- nitfol-0.5/startunix.c.orig	Sat Jun 30 20:59:27 2001
+++ nitfol-0.5/startunix.c	Sun Jul  1 21:46:34 2001
@@ -624,10 +624,20 @@
   n_free(prefname);
   read_textpref(pref, execname);
   
-  p = getenv("INFOCOM_PATH");
+  p = getenv("ZCODE_PATH");
   if(p) {
-    free(search_path);
+    n_free(search_path);
     search_path = n_strdup(p);
+  }
+  p = getenv("INFOCOM_PATH");
+  if(p) {
+    char *t;
+    t = n_malloc ( sizeof(char) * (strlen(search_path) + strlen(p) + 2) );
+    n_strcpy(t, search_path );
+    n_strcat(t, ":");
+    n_strcat(t, p);
+    n_free(search_path);
+    search_path = t;
   }
 
   return parse_commands(data->argc, data->argv);