Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.74 -r1.75
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Aug 2008 10:39:37 -0000	1.74
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Sep 2008 20:51:09 -0000	1.75
@@ -25,9 +25,18 @@
   #
   if {[catch {ns_cache flush xotcl_object_cache NOTHING}]} {
     ns_log notice "xotcl-core: creating xotcl-object caches"
-    
-    ns_cache create xotcl_object_cache -size 200000
-    ns_cache create xotcl_object_type_cache -size 10000
+
+    ns_cache create xotcl_object_cache \
+        -size [parameter::get_from_package_key \
+                   -package_key xotcl-core \
+                   -parameter XOTclObjectCacheSize \
+                   -default 400000]
+
+    ns_cache create xotcl_object_type_cache \
+        -size [parameter::get_from_package_key \
+                   -package_key xotcl-core \
+                   -parameter XOTclObjectTypeCacheSize \
+                   -default 10000]
   }
   #
   # A few helper functions