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.130 -r1.131
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	25 Sep 2012 20:50:06 -0000	1.130
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	11 Apr 2013 12:56:24 -0000	1.131
@@ -501,8 +501,9 @@
       $data set upload_file $upload_file
       $data set import_file [$data form_parameter upload_file.tmpfile]
       set mime_type [$data form_parameter upload_file.content-type]
-      if {[db_0or1row [my qn check_mimetype] {select 1 from cr_mime_types 
-	where mime_type = :mime_type}] == 0 
+      if {[::xo::db_0or1row check_mimetype {
+	select 1 from cr_mime_types where mime_type = :mime_type
+      }] == 0 
 	  || $mime_type eq "application/octet-stream" 
 	  || $mime_type eq "application/force-download"} {
         set guessed_mime_type [::xowiki::guesstype $upload_file]