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.75 -r1.76
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Sep 2008 20:51:09 -0000	1.75
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Oct 2008 11:59:14 -0000	1.76
@@ -1489,15 +1489,16 @@
 
     @return ordered composite
   } {
-    set s [my instantiate_objects -sql \
-	       [my instance_select_query \
-		    -select_attributes $select_attributes \
-		    -from_clause $from_clause \
-		    -where_clause $where_clause \
-		    -orderby $orderby \
-		    -page_size $page_size \
-		    -page_number $page_number \
-		   ]]
+    set s [my instantiate_objects \
+               -object_class [self] \
+               -sql [my instance_select_query \
+                         -select_attributes $select_attributes \
+                         -from_clause $from_clause \
+                         -where_clause $where_clause \
+                         -orderby $orderby \
+                         -page_size $page_size \
+                         -page_number $page_number \
+                        ]]
     return $s
   }
   ##############