Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -N -r1.54 -r1.55
--- openacs-4/packages/xotcl-core/xotcl-core.info	12 Sep 2008 11:18:45 -0000	1.54
+++ openacs-4/packages/xotcl-core/xotcl-core.info	16 Sep 2008 20:51:09 -0000	1.55
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.90" url="http://media.wu-wien.ac.at/download/xotcl-core-0.90.apm">
+    <version name="0.91" url="http://media.wu-wien.ac.at/download/xotcl-core-0.91.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2008-09-12</release-date>
+        <release-date>2008-09-16</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">This component contains some core functionality for OpenACS
 applications using XOTcl. It includes
@@ -41,14 +41,15 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.90"/>
+        <provides url="xotcl-core" version="0.91"/>
 
         <callbacks>
             <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
             <callback type="before-install"  proc="::xotcl-core::before_install_callback"/>
         </callbacks>
         <parameters>
-        <!-- No version parameters -->
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="XOTclObjectCacheSize"  default="400000" description="Size of the ns_cache xotcl_object_cache (used for caching XOTcl objects fetched from the database)"/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="XOTclObjectTypeCacheSize"  default="10000" description="Size of the ns_cache xotcl_object_type_cache (used for caching types of XOTcl objects)"/>
         </parameters>
 
     </version>
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 -N -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