Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -N -r1.34 -r1.35 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 2 Aug 2004 04:25:07 -0000 1.34 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 2 Aug 2004 04:29:28 -0000 1.35 @@ -25,7 +25,7 @@ # non logged users, if not it will enter into a infinite loop with # ad_conn in any new unknown request (roc) set party_id "-99" -} + } return [permission::permission_p -party_id $party_id -object_id [ds_instance_id] -privilege "admin"] }