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]