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.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	23 Dec 2008 12:23:00 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	30 Jan 2009 03:24:59 -0000	1.7
@@ -22,7 +22,7 @@
     ad_proc -public privacy_control_set {val} {
         set the privacy control
     } {
-        return [parameter::get -set $val -package_id [ad_acs_kernel_id] -parameter PrivacyControlEnabledP]
+        return [parameter::set_value -value $val -package_id [ad_acs_kernel_id] -parameter PrivacyControlEnabledP]
     }
 
     ad_proc -public user_can_read_private_data_p {