Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	18 Mar 2002 03:39:39 -0000	1.38
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	18 Mar 2002 22:30:04 -0000	1.39
@@ -188,7 +188,7 @@
     } {
         check if a user is admin for dotLRN
     } {
-        return [ad_permission_p -user_id $user_id [dotlrn::get_package_id] admin]
+        return [permission::permission_p -party_id $user_id -object_id [dotlrn::get_package_id] -privilege "admin"]
     }
 
     ad_proc -public get_users_rel_segment_id {} {