Index: openacs-4/packages/acs-content-repository/tcl/content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-procs.tcl,v
diff -u -N -r1.12.2.3 -r1.12.2.4
--- openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	9 May 2014 08:25:45 -0000	1.12.2.3
+++ openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	8 Jul 2014 12:44:07 -0000	1.12.2.4
@@ -95,17 +95,15 @@
     file storage area.
 } {
     ad_mutex_eval [nsv_get mutex cr_file_creation] {
-
-        set f [open $dir/file-creation.log a]
-        puts $f $content_file
-        close $f
-
         set content_file [cr_create_content_file_path $item_id $revision_id]
         set ofp [open [cr_fs_path]$content_file w]
         puts -nonewline $ofp $str
         close $ofp
-    } 
 
+        set f [open [cr_fs_path]/file-creation.log a]
+        puts $f $content_file
+        close $f
+    }
     return $content_file
 }