Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	9 Mar 2007 18:31:11 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	9 Mar 2007 20:56:32 -0000	1.4
@@ -88,7 +88,7 @@
 	set c [self]::[namespace tail $class]
 	if {![my isclass $c]} continue
 	set permission [my get_permission -check_classes false $class $method]
-	break
+	if {$permission ne ""} break
       }
     }
     return $permission
@@ -162,7 +162,7 @@
       }
     }
 
-    #my log "--p enforce_permissions {$object $method} ==> $allowed"
+    my log "--p enforce_permissions {$object $method} : $permission ==> $allowed"
 
     if {!$allowed} {
       ns_log notice "permission::require_permission: $user_id doesn't \