Index: openacs-4/packages/xowiki/www/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/file-selector.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/www/xinha/file-selector.tcl	15 Dec 2005 12:39:25 -0000	1.2
+++ openacs-4/packages/xowiki/www/xinha/file-selector.tcl	30 Dec 2005 00:09:58 -0000	1.3
@@ -101,7 +101,7 @@
 	set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]
 	set mime_type [template::util::file::get_property mime_type $upload_file]
 	
-	if {$selector_type eq "image" && ![string match image/* $mime_type]} {
+	if {$selector_type eq "image" && ![string match "image/*" $mime_type]} {
 	  template::form::set_error upload_form upload_file \
 	      [_ acs-templating.HTMLArea_SelectImageUploadNoImage]
 	  break
@@ -249,7 +249,7 @@
   set file_upload_name [fs::remove_special_file_system_characters \
 			    -string $file_upload_name]
   
-  if { ![empty_string_p $content_size] } {
+  if { $content_size ne "" } {
     incr content_size_total $content_size
   }