Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	9 Mar 2007 11:05:34 -0000	1.46
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	9 Mar 2007 16:33:11 -0000	1.47
@@ -775,13 +775,8 @@
   # policy management
   #
 
-  Package instproc condition {method attr value} {
-    switch $attr {
-      has_class {set result [expr {[my query_parameter object_type ""] eq $value}] }
-      default {set result 0}
-    }
-    #my log "--c [self args] returns $result"
-    return $result
+  Package instproc condition=has_class {value} {
+    return [expr {[my query_parameter object_type ""] eq $value}]
   }
 
 
@@ -808,7 +803,7 @@
       delete             {{package_id admin}}
       save-tags          login
       popular-tags       login
-    }
+    } -set default_permission {{package_id write}}
 
     Class Object -array set require_permission {
       edit               {{package_id admin}}