Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.359 -r1.360
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Apr 2009 09:12:23 -0000	1.359
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	8 May 2009 09:12:15 -0000	1.360
@@ -2368,7 +2368,7 @@
       foreach p [$items children] {
         array set __ia $init_vars
         array set __ia [$p instance_attributes]
-        if {![expr $wc(tcl)]} {$items delete $p}
+        if {![$p eval expr $wc(tcl)]} {$items delete $p}
       }
     }
     return $items