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.96 -r1.97
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Apr 2013 21:51:31 -0000	1.96
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	29 Jul 2013 08:42:14 -0000	1.97
@@ -1537,7 +1537,13 @@
           }
         }
         if {$initialize && [$o istype ::xo::db::Object]} {
-          $o initialize_loaded_object
+	  if {![$o exists package_id]} {
+	    ns_log error "$o has no package_id but [$o exists object_package_id]"
+	    if {[$o exists object_package_id]} {$o set package_id [$o set object_package_id]}
+	  }
+          if {[catch {$o initialize_loaded_object} errorMsg]} {
+	    ns_log error "$o initialize_loaded_object => [$o info vars] -> $errorMsg"
+	  }
         }
         #my log "--DB more = $continue [$o serialize]" 
       }