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.97.2.1
--- 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	25 Aug 2013 19:48:02 -0000	1.97.2.1
@@ -1538,9 +1538,12 @@
         }
         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 class]] $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"
 	  }