Index: openacs-4/packages/xowiki/tcl/import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v
diff -u -r1.27.2.1 -r1.27.2.2
--- openacs-4/packages/xowiki/tcl/import-procs.tcl	29 Sep 2013 16:40:17 -0000	1.27.2.1
+++ openacs-4/packages/xowiki/tcl/import-procs.tcl	13 Oct 2013 18:13:58 -0000	1.27.2.2
@@ -395,7 +395,7 @@
 	set success 1
       }
       application/x-compressed {
-	if {[string match *tar.gz $name]} {
+	if {[string match "*tar.gz" $name]} {
 	  set cmd [::util::which tar]
 	  exec $cmd -xzf $file -C [my set tmpdir]
 	  my import -dir [my set tmpdir] -parent_id [my parent_id]
@@ -417,7 +417,7 @@
       set file_name [::file tail $tmpfile]
       if {[::file isdirectory $tmpfile]} {
 	# ignore mac os x resource fork directories
-	if {[string match *__MACOSX $tmpfile]} continue
+	if {[string match "*__MACOSX" $tmpfile]} continue
 	set folder_object [$package_id get_page_from_name -assume_folder true \
 			       -name $file_name -parent_id $parent_id]
 	if {$folder_object ne ""} {
@@ -441,7 +441,7 @@
 	my import -dir $tmpfile -parent_id [$folder_object item_id]
       } else {
 	set mime_type [::xowiki::guesstype $file_name]
-	if {[string match image/* $mime_type] && [my use_photo_form]} {
+	if {[string match "image/*" $mime_type] && [my use_photo_form]} {
 	  set photo_object [$package_id get_page_from_name -name en:$file_name -parent_id $parent_id]
 	  if {$photo_object ne ""} {
 	    # photo entry exists already, create a new revision