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 -N -r1.84.2.4 -r1.84.2.5
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	11 Dec 2007 22:18:10 -0000	1.84.2.4
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	9 Oct 2008 20:43:22 -0000	1.84.2.5
@@ -399,7 +399,7 @@
       set mime_type   [$data form_parameter upload_file.content-type]
       if {$mime_type eq "application/octet-stream"} {
         set guessed_mime_type [::xowiki::guesstype $upload_file]
-        my msg guess=$guessed_mime_type
+        #my msg guess=$guessed_mime_type
         if {$guessed_mime_type ne "*/*"} {
           set mime_type $guessed_mime_type
         }