Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.94 -r1.95
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	2 Apr 2002 06:13:47 -0000	1.94
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	2 Apr 2002 20:19:55 -0000	1.95
@@ -888,13 +888,7 @@
         Returns a tcl list of the subcommunities of this community or
         if none, the empty list
     } {
-        set subcomm_list [list]
-
-        db_foreach select_subcomms {} {
-            lappend subcomm_list $subcomm_id
-        }
-
-        return $subcomm_list
+        return [db_list select_subcomms {}]
     }
 
     ad_proc -public get_subcomm_chunk {