Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Apr 2009 08:01:33 -0000	1.38
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Apr 2009 20:33:19 -0000	1.39
@@ -455,7 +455,7 @@
 }
 
 # per default, deactivated
-if {0} {
+if {1} {
   if {[info command ::xo::ns_log] eq ""} {
     #
     # provide an XOTcl stub for ns_log
@@ -475,6 +475,10 @@
       catch {ds_comment "[self proc]: [join $args { }]"}
       ::xo::ns_log [self proc] [join $args " "]
     }
+    ::xo::DS instproc notice args {
+      catch {ds_comment "[self proc]: [join $args { }]"}
+      ::xo::ns_log [self proc] [join $args " "]
+    }
     ::ns_log mixin ::xo::DS
   }
 }
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.79 -r1.80
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	21 Apr 2009 12:51:32 -0000	1.79
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	27 Apr 2009 20:33:19 -0000	1.80
@@ -1313,6 +1313,7 @@
     {-as_ordered_composite:boolean true}
     {-object_class "::xotcl::Object"}
     {-named_objects:boolean false}
+    {-object_named_after ""}
     {-destroy_on_cleanup:boolean true}
   } {
 
@@ -1347,14 +1348,19 @@
     } else {
       set __result [list]
     }
+    if {$named_objects} {
+      if {$object_named_after eq ""} {
+        set object_named_after [my id_column]
+      }
+    }
 
     db_with_handle -dbn $dbn db {
       set selection [db_exec select $db $full_statement_name $sql]
       while {1} {
         set continue [ns_db getrow $db $selection]
         if {!$continue} break
         if {$named_objects} {
-          set object_name ::[ns_set get $selection [my id_column]]
+          set object_name ::[ns_set get $selection $object_named_after]
           set o [$object_class create $object_name]
         } else {
           set o [$object_class new]