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.97 -r1.98
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	29 Jul 2013 08:42:14 -0000	1.97
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	24 Aug 2013 15:39:08 -0000	1.98
@@ -1538,8 +1538,11 @@
         }
         if {$initialize && [$o istype ::xo::db::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 {[$o exists object_package_id]} {
+	      $o set package_id [$o set object_package_id]
+	    } else {
+	      ns_log warning "[namespace tail [$o info type]] $o has no package_id and no object_package_id"
+	    }
 	  }
           if {[catch {$o initialize_loaded_object} errorMsg]} {
 	    ns_log error "$o initialize_loaded_object => [$o info vars] -> $errorMsg"