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.77 -r1.78
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Oct 2008 18:17:10 -0000	1.77
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	8 Apr 2009 11:04:56 -0000	1.78
@@ -1343,7 +1343,7 @@
       set __result [::xo::OrderedComposite new]
       if {$destroy_on_cleanup} {$__result destroy_on_cleanup}
     } else {
-      set __result ""
+      set __result [list]
     }
 
     db_with_handle -dbn $dbn db {
@@ -1359,8 +1359,11 @@
         }
         if {$as_ordered_composite} {
           $__result add $o
-        } elseif {$destroy_on_cleanup} {
-          $o destroy_on_cleanup
+        } else {
+          if {$destroy_on_cleanup} {
+            $o destroy_on_cleanup
+          }
+          lappend __result $o
         }
         foreach {att val} [ns_set array $selection] {$o set $att $val}
         if {[$o exists object_type]} {
@@ -1375,6 +1378,7 @@
         #my log "--DB more = $continue [$o serialize]" 
       }
     }
+
     return $__result
   }