Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -N -r1.31.2.7 -r1.31.2.8
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	1 Apr 2014 18:37:34 -0000	1.31.2.7
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	6 Jun 2014 11:56:18 -0000	1.31.2.8
@@ -65,7 +65,10 @@
         && [info commands ::util::which] ne ""} { 
       set clamscanCmd [::util::which clamscan]
       if {$clamscanCmd ne "" && [file readable $fn]} {
-        if {[catch {exec $clamscanCmd $fn }]} {return 1}
+        if {[catch {exec $clamscanCmd $fn 2>@1} result]} {
+          ns_log warning "[self] virus found:\n$result"
+          return 1
+        }
       }
     }
     return 0