diff -cr ./slibu.c ../siod-fixed/slibu.c
*** ./slibu.c	Wed Jul 25 21:27:22 2001
--- ../siod-fixed/slibu.c	Thu Feb 17 16:43:56 2005
***************
*** 1028,1034 ****
  
  #if defined(unix) || defined(WIN32)
  
! LISP lchmod(LISP path,LISP mode)
  {if (chmod(get_c_string(path),get_c_long(mode)))
     return(err("chmod",llast_c_errmsg(-1)));
   else
--- 1028,1034 ----
  
  #if defined(unix) || defined(WIN32)
  
! LISP llchmod(LISP path,LISP mode)
  {if (chmod(get_c_string(path),get_c_long(mode)))
     return(err("chmod",llast_c_errmsg(-1)));
   else
***************
*** 2188,2194 ****
  	      opendir_gc_free,
  	      &j);
   set_print_hooks(tc_opendir,opendir_prin1);
!  init_subr_2("chmod",lchmod);
  #endif
  
   gc_protect_sym(&sym_channels,"*channels*");
--- 2188,2194 ----
  	      opendir_gc_free,
  	      &j);
   set_print_hooks(tc_opendir,opendir_prin1);
!  init_subr_2("chmod",llchmod);
  #endif
  
   gc_protect_sym(&sym_channels,"*channels*");