Index: openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	20 Sep 2007 12:33:33 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	23 Dec 2008 12:23:00 -0000	1.4
@@ -1,11 +1,11 @@
 # Create the cache used by util_memoize.
 
-# Note: we must pass the package_id to ad_parameter, because
-# otherwise ad_parameter will end up calling util_memoize to figure
+# Note: we must pass the package_id to parameter::get, because
+# otherwise parameter::get will end up calling util_memoize to figure
 # out the package_id.
 
 ns_cache create util_memoize -size \
-    [ad_parameter -package_id [ad_acs_kernel_id] MaxSize memoize 200000]
+    [parameter::get -package_id [ad_acs_kernel_id] -parameter MaxSize -default 200000]
 
 
 # We construct the body of util_memoize_flush differently depending