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 -r1.84.2.2 -r1.84.2.3
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	1 Aug 2007 21:39:24 -0000	1.84.2.2
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	12 Sep 2007 10:58:49 -0000	1.84.2.3
@@ -147,7 +147,7 @@
     my instvar data
     my get_uploaded_file
     upvar title title
-    if {$title eq ""} {set title [$data set upload_file]}
+    if {$title eq ""} { set title [$data set upload_file] }
     # my log "--F validate_file returns [$data exists import_file]"
     return [$data exists import_file]
   }
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.162.2.3 -r1.162.2.4
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Sep 2007 09:45:55 -0000	1.162.2.3
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Sep 2007 10:58:49 -0000	1.162.2.4
@@ -932,6 +932,9 @@
       regexp {^(.*):(.*)$} $name _ _t stripped_name
     } else {
       set stripped_name $fn
+      # Internet explorer seems to transmit the full path of the
+      # filename. Just use the last part in such cases as name.
+      regexp {[/\\]([^/\\]+)$} $stripped_name _ stripped_name
     }
     return ${type}:[::$package_id normalize_name $stripped_name]
   }