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.73 -r1.74
--- openacs-4/packages/xotcl-core/xotcl-core.info	26 Nov 2009 10:57:26 -0000	1.73
+++ openacs-4/packages/xotcl-core/xotcl-core.info	12 Dec 2009 10:48:20 -0000	1.74
@@ -10,10 +10,10 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.110" url="http://media.wu-wien.ac.at/download/xotcl-core-0.110.apm">
+    <version name="0.111" url="http://media.wu-wien.ac.at/download/xotcl-core-0.111.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>2009-11-26</release-date>
+        <release-date>2009-12-12</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
@@ -43,7 +43,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.110"/>
+        <provides url="xotcl-core" version="0.111"/>
 
         <callbacks>
             <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
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.86 -r1.87
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	26 Nov 2009 12:02:16 -0000	1.86
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	12 Dec 2009 10:48:20 -0000	1.87
@@ -1317,6 +1317,7 @@
     {-named_objects:boolean false}
     {-object_named_after ""}
     {-destroy_on_cleanup:boolean true}
+    {-initialize true}
   } {
 
     Retrieve multiple objects from the database using the given SQL
@@ -1341,6 +1342,11 @@
     @destroy_on_cleanup If this flag is true, the objects (and ordered
     composite) will be automatically destroyed on cleaup (typically
     after the request was processed).
+
+    @initialize can be used to avoid full initialization, when
+    a large series of of objects is loaded. Per default, these objects
+    are initialized via initialize_loaded_object, when the are 
+    of type ::xo::db::Object
   } {
     if {$object_class eq ""} {set object_class [self]}
     if {$sql eq ""} {set sql [my instance_select_query]}
@@ -1382,7 +1388,7 @@
             $o class $ot
           }
         }
-        if {[$o istype ::xo::db::Object]} {
+        if {$initialize && [$o istype ::xo::db::Object]} {
           $o initialize_loaded_object
         }
         #my log "--DB more = $continue [$o serialize]"