6 files changed, 7 insertions, 7 deletions
diff --git a/otherlibs/labltk/support/cltkEval.c b/otherlibs/labltk/support/cltkEval.c
index ddaea5303..9cb044463 100644
--- a/otherlibs/labltk/support/cltkEval.c
+++ b/otherlibs/labltk/support/cltkEval.c
@@ -219,7 +219,7 @@ value camltk_tcl_direct_eval(value v) /* ML */
           Tcl_DStringAppend(&buf, " ", -1);
           Tcl_DStringAppend(&buf, argv[i], -1);
         }
-        // fprintf(stderr,"80 compat: %s\n", argv[0]);
+        /* fprintf(stderr,"80 compat: %s\n", argv[0]); */
         result = Tcl_Eval(cltclinterp, Tcl_DStringValue(&buf));
         Tcl_DStringFree(&buf);
       }
diff --git a/otherlibs/unix/envir.c b/otherlibs/unix/envir.c
index ff9b80d66..a25263c1c 100644
--- a/otherlibs/unix/envir.c
+++ b/otherlibs/unix/envir.c
@@ -19,5 +19,5 @@ extern char ** environ;
 
 value unix_environment(void)   /* ML */
 {
-  return copy_string_array(environ);
+  return copy_string_array((const char**)environ);
 }
diff --git a/otherlibs/unix/getgr.c b/otherlibs/unix/getgr.c
index e148babcf..812b16828 100644
--- a/otherlibs/unix/getgr.c
+++ b/otherlibs/unix/getgr.c
@@ -28,7 +28,7 @@ static value alloc_group_entry(struct group *entry)
   Begin_roots3 (name, pass, mem);
     name = copy_string(entry->gr_name);
     pass = copy_string(entry->gr_passwd);
-    mem = copy_string_array(entry->gr_mem);
+    mem = copy_string_array((const char**)entry->gr_mem);
     res = alloc_small(4, 0);
     Field(res,0) = name;
     Field(res,1) = pass;
diff --git a/otherlibs/unix/gethost.c b/otherlibs/unix/gethost.c
index a4a5bbb9e..ca22e39b3 100644
--- a/otherlibs/unix/gethost.c
+++ b/otherlibs/unix/gethost.c
@@ -46,10 +46,10 @@ static value alloc_host_entry(struct hostent *entry)
 
   Begin_roots4 (name, aliases, addr_list, adr);
     name = copy_string((char *)(entry->h_name));
-    aliases = copy_string_array(entry->h_aliases);
+    aliases = copy_string_array((const char**)entry->h_aliases);
     entry_h_length = entry->h_length;
 #ifdef h_addr
-    addr_list = alloc_array(alloc_one_addr, entry->h_addr_list);
+    addr_list = alloc_array(alloc_one_addr, (const char**)entry->h_addr_list);
 #else
     adr = alloc_one_addr(entry->h_addr);
     addr_list = alloc_small(1, 0);
diff --git a/otherlibs/unix/getproto.c b/otherlibs/unix/getproto.c
index 0f18e0e45..74d2ca551 100644
--- a/otherlibs/unix/getproto.c
+++ b/otherlibs/unix/getproto.c
@@ -33,7 +33,7 @@ static value alloc_proto_entry(struct protoent *entry)
 
   Begin_roots2 (name, aliases);
     name = copy_string(entry->p_name);
-    aliases = copy_string_array(entry->p_aliases);
+    aliases = copy_string_array((const char**)entry->p_aliases);
     res = alloc_small(3, 0);
     Field(res,0) = name;
     Field(res,1) = aliases;
diff --git a/otherlibs/unix/getserv.c b/otherlibs/unix/getserv.c
index 4b0d68f45..b1f03c950 100644
--- a/otherlibs/unix/getserv.c
+++ b/otherlibs/unix/getserv.c
@@ -37,7 +37,7 @@ static value alloc_service_entry(struct servent *entry)
 
   Begin_roots3 (name, aliases, proto);
     name = copy_string(entry->s_name);
-    aliases = copy_string_array(entry->s_aliases);
+    aliases = copy_string_array((const char**)entry->s_aliases);
     proto = copy_string(entry->s_proto);
     res = alloc_small(4, 0);
     Field(res,0) = name;