Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -N -r1.12.2.7 -r1.12.2.8
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	7 Oct 2004 17:51:30 -0000	1.12.2.7
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	15 Apr 2005 17:00:42 -0000	1.12.2.8
@@ -254,8 +254,19 @@
                 db_dml set_file_content ""
             }
             lob {
-                db_dml set_lob_content "" -blob_files [list $tmp_filename]
+                # mmagerl: rename file, because Oracle cannot handle UTF chararacters
+                set tmp_newname [uni_procs::masquerade_name -name $tmp_filename -masqslash "f"]
+                ns_log Debug "mmagerl: Renaming $tmp_filename to $tmp_newname"
+                if {![string eq $tmp_filename $tmp_newname]} {
+                  file rename $tmp_filename $tmp_newname
+                }
+                db_dml set_lob_content "" -blob_files [list $tmp_newname]
                 db_dml set_lob_size ""
+                ns_log Debug "mmagerl: Chaning $tmp_newname back to $tmp_filename"
+                if {![string eq $tmp_filename $tmp_newname]} {
+                  file rename $tmp_newname $tmp_filename
+                }
+                # mmagerl: end
             }
         }