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.239.2.36 -r1.239.2.37
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Apr 2015 14:40:37 -0000	1.239.2.36
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	28 Apr 2015 09:28:58 -0000	1.239.2.37
@@ -778,12 +778,12 @@
         link_label
       }
   file instproc check=virus {value} {
-    set tmpfile [my set tmpfile]
     # In case of an upgrade script, the (uploaded) tmp file might not exist
     if {[my viruscheck]
+        && [my exists tmpfile]
         && $value ne ""
-        && [file exists $tmpfile]
-        && [::xowiki::virus check $tmpfile]
+        && [file exists [my set tmpfile]]
+        && [::xowiki::virus check [my set tmpfile]]
       } {
       #util_user_message -message "uploaded file contains a virus; upload rejected"
       return 0