Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -r1.24 -r1.24.2.1
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	17 Dec 2008 19:35:27 -0000	1.24
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	3 Jun 2009 14:43:34 -0000	1.24.2.1
@@ -196,13 +196,11 @@
      switch $storage_type {
 	file {
 	    if {$tmp_filename eq ""} {
-		set tmp_filename [ns_mktemp /tmp/XXXXXX]
-		set fd [open $tmp_filename w]
-		puts $fd $content
-		close $fd
-	    }
-	    set tmp_size [file size $tmp_filename]
-	    set filename [cr_create_content_file $item_id $revision_id $tmp_filename]
+                set filename [cr_create_content_file_from_string $item_id $revision_id $content]
+	    } else {
+                set filename [cr_create_content_file $item_id $revision_id $tmp_filename]
+            }
+	    set tmp_size [file size [cr_fs_path]$filename]            
 	    db_dml set_file_content ""
 	}
 	lob {