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.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	9 Mar 2007 20:56:32 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	30 Mar 2007 19:29:56 -0000	1.5
@@ -40,11 +40,11 @@
       default {
         # try object specific privileges. These have the signature:
         # 
-        # <class> instproc privilege=<name> {{-login true} user_id package_id}
+        # <class> instproc privilege=<name> {{-login true} user_id package_id method}
         #
         if {[$object info methods privilege=$privilege] ne ""} {
 	  if {![info exists package_id]} {set package_id [::xo::cc package_id]}
-          set allowed [$object privilege=$privilege -login $login $user_id $package_id]
+          set allowed [$object privilege=$privilege -login $login $user_id $package_id method]
         }
       }
     }