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.2.13 -r1.97.2.14
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	27 May 2014 18:48:18 -0000	1.97.2.13
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Jul 2014 21:21:03 -0000	1.97.2.14
@@ -1821,6 +1821,7 @@
     {-named_objects:boolean false}
     {-object_named_after ""}
     {-destroy_on_cleanup:boolean true}
+    {-ignore_missing_package_ids:boolean false}
     {-initialize true}
   } {
 
@@ -1839,13 +1840,11 @@
     are created.
 
     @named_objects If this flag is true, the value of the id_column is used
-    for the name of the created objects (object will be named
-                                         e.g. ::13738). Otherwise, objects are created with the XOTcl "new"
-    method to avoid object name clashes.
+    for the name of the created objects (object will be named e.g. ::13738). 
+    Otherwise, objects are created with the XOTcl "new" method to avoid object name clashes.
 
-    @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).
+    @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
@@ -1894,7 +1893,7 @@
         if {![$o exists package_id]} {
           if {[$o exists object_package_id]} {
             $o set package_id [$o set object_package_id]
-          } else {
+          } elseif {!$ignore_missing_package_ids} {
             ns_log warning "[namespace tail [$o info class]] $o has no package_id and no object_package_id"
           }
         }
Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -r1.15.6.3 -r1.15.6.4
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	14 Feb 2014 18:20:44 -0000	1.15.6.3
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	23 Jul 2014 21:21:04 -0000	1.15.6.4
@@ -241,6 +241,7 @@
                              and package_key = :package_key
                            }] \
                  -object_class ::xo::db::apm_parameter \
+                 -ignore_missing_package_ids true \
                  -as_ordered_composite false -named_objects true -destroy_on_cleanup false]
       #
       # Check for "retry" to avoid potential recursive loops
@@ -356,6 +357,7 @@
   ::xo::db::apm_parameter instantiate_objects \
       -sql [::xo::db::apm_parameter instance_select_query] \
       -object_class ::xo::db::apm_parameter \
+      -ignore_missing_package_ids true \
       -as_ordered_composite false -named_objects true -destroy_on_cleanup false
   #  ns_log notice "--p got [llength [::xo::db::apm_parameter info instances]] parameters"
   #foreach p [::xo::db::apm_parameter info instances] { ns_log notice [$p serialize] }