Index: openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl	22 Jul 2018 08:09:03 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl	22 Jul 2018 08:20:28 -0000	1.3
@@ -1,25 +1,32 @@
 ::xo::library doc {
 
-  XoTcl - Utility procs
+  XoTcl - Utility procs for file I/O. Should not be necessary on the
+  longer run.
 
+  @author Gustaf Neumann
 }
 
 namespace eval ::xo {
 
   proc read_file {fn} {
     set F [open $fn]
-    fconfigure $F -translation binary
-    set content [read $F]
-    close $F
+    ::fconfigure $F -translation binary
+    ::set content [read $F]
+    ::close $F
     return $content
   }
-  
+
   proc write_file {fn content} {
     set F [::open $fn w]
     ::fconfigure $F -translation binary -encoding binary
     ::puts -nonewline $F $content
     ::close $F
-  }    
-
-
+  }
 }
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: