Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.248.2.43 -r1.248.2.44
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	22 Feb 2017 10:03:30 -0000	1.248.2.43
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Mar 2017 16:15:01 -0000	1.248.2.44
@@ -918,15 +918,23 @@
       # Create a new file
       #
       #my msg "new file"
+      set package_id [[my object] package_id]
       set file_object [::xowiki::File new -destroy_on_cleanup \
                            -title $file_name \
                            -name $object_name \
                            -parent_id $parent_id \
                            -mime_type $content_type \
-                           -package_id [[my object] package_id] \
+                           -package_id $package_id \
                            -creation_user [::xo::cc user_id] ]
       $file_object set import_file $tmpfile
       eval $publish_date_cmd
+      #
+      # When produduction_mode is set, make sure, the new file object
+      # is not in a published state.
+      #
+      if {[$package_id get_parameter production_mode 0]} {
+          $file_object publish_status "production"
+      }      
       $file_object save_new {*}$save_flag
     }
     return $file_object