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.6 -r1.7
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	11 Apr 2007 12:19:38 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	16 May 2007 06:22:01 -0000	1.7
@@ -44,7 +44,7 @@
         #
         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 method]
+          set allowed [$object privilege=$privilege -login $login $user_id $package_id $method]
         }
       }
     }