Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	26 Nov 2007 09:14:43 -0000	1.37
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	14 Dec 2007 10:24:51 -0000	1.38
@@ -477,4 +477,18 @@
     }
   }
 
+  proc read_file {fn} {
+    set F [open $fn]
+    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
+    puts -nonewline $F $content
+    close $F
+  }
+
 }
\ No newline at end of file