Index: openacs-4/packages/xotcl-core/tcl/cluster-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/cluster-init.tcl	29 Aug 2008 22:42:53 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/cluster-init.tcl	23 Dec 2008 11:34:59 -0000	1.3
@@ -9,7 +9,7 @@
     ::xo::Cluster create CS_${host}_$port -host $host -port $port
   }
   
-  foreach ip [ad_parameter -package_id [ad_acs_kernel_id] ClusterAuthorizedIP server-cluster] {
+  foreach ip [parameter::get -package_id [ad_acs_kernel_id] -parameter ClusterAuthorizedIP] {
     if {[string first * $ip] > -1} {
       ::xo::Cluster lappend allowed_host_patterns $ip
     } else {