Index: openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	25 Jan 2002 23:03:21 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	2 Jun 2002 19:38:58 -0000	1.3
@@ -16,13 +16,13 @@
 	was in no way regulated.
     } {
 	# If no parameter set, then we assume privacy control is DISABLED
-	return [ad_parameter privacy_control_enabled_p acs-kernel 0]
+	return [ad_parameter -package_id [ad_acs_kernel_id] PrivacyControlEnabledP 0]
     }
 
     ad_proc -public privacy_control_set {val} {
 	set the privacy control
     } {
-	ad_parameter -set $val PrivacyControlEnabledP acs-kernel
+	ad_parameter -set $val -package_id [ad_acs_kernel_id] PrivacyControlEnabledP
     }
 
     ad_proc -public user_can_read_private_data_p {