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.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	3 Jul 2007 08:20:26 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	12 Jul 2007 17:35:48 -0000	1.10
@@ -174,8 +174,13 @@
     #my log "--p enforce_permissions {$object $method} : $permission ==> $allowed"
 
     if {!$allowed} {
-      ns_log notice "permission::require_permission: $user_id doesn't \
+      if {$permission eq ""} {
+	ns_log notice "permission::require_permission: no permission for " \
+	    "$object->$method defined"
+      } else {
+	ns_log notice "permission::require_permission: $user_id doesn't \
 		have $privilege on $object"
+      }
       ad_return_forbidden  "Permission Denied" [_ xotcl-core.policy-error-insufficient_permissions]
       ad_script_abort
     }