diff --git a/lang/siod/files/patch-ac b/lang/siod/files/patch-ac
index 4c26f004eeb4..b0d5be2349c5 100644
--- a/lang/siod/files/patch-ac
+++ b/lang/siod/files/patch-ac
@@ -1,5 +1,5 @@
---- slibu.c--	Tue Dec  2 00:46:38 1997
-+++ slibu.c	Wed Apr 28 14:07:05 1999
+--- slibu.c.orig	Mon Dec  1 19:16:38 1997
++++ slibu.c	Thu Jan  6 15:04:04 2000
 @@ -20,6 +20,10 @@
  #include <errno.h>
  #include <stdarg.h>
@@ -36,7 +36,32 @@
  
  LISP laccess_problem(LISP lfname,LISP lacc)
  {char *fname = get_c_string(lfname);
-@@ -1554,7 +1560,7 @@
+@@ -1021,7 +1027,7 @@
+ 
+ #if defined(unix) || defined(WIN32)
+ 
+-LISP lchmod(LISP path,LISP mode)
++LISP l_chmod(LISP path,LISP mode)
+ {if (chmod(get_c_string(path),get_c_long(mode)))
+    return(err("chmod",llast_c_errmsg(-1)));
+  else
+@@ -1029,6 +1035,15 @@
+ 
+ #endif
+ 
++#if defined(unix) || defined(WIN32)
++
++LISP l_lchmod(LISP path,LISP mode)
++{if (lchmod(get_c_string(path),get_c_long(mode)))
++   return(err("lchmod",llast_c_errmsg(-1)));
++ else
++   return(NIL);}
++
++#endif
+ 
+ #ifdef unix
+ 
+@@ -1554,7 +1569,7 @@
       /* note: error cases can leak memory in this procedure. */
  {LISP init_name;
   void (*fcn)(void) = NULL;
@@ -45,7 +70,7 @@
   void *handle;
  #endif
  #if defined(hpux)
-@@ -1575,7 +1581,7 @@
+@@ -1575,7 +1590,7 @@
     {put_st("so-loading ");
      put_st(get_c_string(fname));
      put_st("\n");}
@@ -54,7 +79,17 @@
  #if !defined(__osf__)
   /* Observed bug: values of LD_LIBRARY_PATH established with putenv
      -after- a process has started are ignored. Work around follows. */
-@@ -2197,7 +2203,9 @@
+@@ -2163,7 +2178,8 @@
+ 	      opendir_gc_free,
+ 	      &j);
+  set_print_hooks(tc_opendir,opendir_prin1);
+- init_subr_2("chmod",lchmod);
++ init_subr_2("chmod",l_chmod);
++ init_subr_2("lchmod",l_lchmod);
+ #endif
+ 
+  gc_protect_sym(&sym_channels,"*channels*");
+@@ -2197,7 +2213,9 @@
  #if defined(__osf__)
   init_subr_1("setpwfile",lsetpwfile);
  #endif