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 -r1.37.2.5 -r1.37.2.6
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	28 Feb 2016 10:41:35 -0000	1.37.2.5
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	21 Mar 2016 09:50:35 -0000	1.37.2.6
@@ -63,14 +63,16 @@
   #  Ununtu:   apt-get install clamav-daemon
   # 
   ::xotcl::Object create virus
-  virus proc check {fn} {
+  virus proc check {fns} {
     if {[[::xo::cc package_id] get_parameter clamav 1]
         && [info commands ::util::which] ne ""} { 
       set clamscanCmd [::util::which clamdscan]
-      if {$clamscanCmd ne "" && [file readable $fn]} {
-        if {[catch {exec $clamscanCmd $fn 2>@1} result]} {
-          ns_log warning "[self] virus found:\n$result"
-          return 1
+      foreach fn $fns {
+        if {$clamscanCmd ne "" && [file readable $fn]} {
+          if {[catch {exec $clamscanCmd $fn 2>@1} result]} {
+            ns_log warning "[self] virus found:\n$result"
+            return 1
+          }
         }
       }
     }