Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.229 -r1.230
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	20 Apr 2009 14:05:32 -0000	1.229
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	23 Apr 2009 10:42:28 -0000	1.230
@@ -1740,7 +1740,7 @@
 
   PageTemplate instproc delete {} {
     my instvar package_id item_id name
-    set count [my count_usages -all true]
+    set count [my count_usages -publish_status all]
     #my msg count=$count
     if {$count > 0} {
       append error_msg \