Index: openacs-4/packages/acs-content-repository/tcl/content-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/content-init.tcl	27 Oct 2014 16:39:10 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/content-init.tcl	7 Aug 2017 23:47:47 -0000	1.3
@@ -1,3 +1,17 @@
 
 nsv_set mutex cr_file_creation [ns_mutex create oacs:cr_file_creation]
-exec touch [cr_fs_path]/file-creation.log
+
+#
+# Make sure that the file-creation.log exists, without using "exec
+# touch", which is not available under windows (see issue #3311).
+#
+set creation_log_file [cr_fs_path]/file-creation.log
+if {![file exists $creation_log_file]} {
+    set F [open $creation_log_file w]; close $F
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: