Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -N -r1.147.2.4 -r1.147.2.5
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	28 Jun 2019 10:30:28 -0000	1.147.2.4
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	15 Jul 2019 12:14:28 -0000	1.147.2.5
@@ -243,7 +243,9 @@
     set old_name [$cc form_parameter __object_name ""]
     #$data msg "validate: old='$old_name', current='$name'"
 
-    if {[$data istype ::xowiki::File] && [$data exists mime_type]} {
+    if {[$data istype ::xowiki::File] &&
+        [$data exists upload_file] &&
+        [$data exists mime_type]} {
       #$data log "--mime validate_name MIME [$data set mime_type]"
       set name [$data build_name $name [$data set upload_file]]
       #