Index: openacs-4/packages/directory/tcl/directory-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/directory/tcl/directory-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/directory/tcl/directory-procs.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/directory/tcl/directory-procs.tcl	21 Oct 2001 18:16:34 -0000	1.2
@@ -52,11 +52,9 @@
     the "excluded_vars" list.
 } {
     if {$all_users == "t"} {
-        set table_and_group " dir_all_users m 
- where 1=1"
+        set table_and_group [db_map table_and_group_1]
     } else {
-        set table_and_group " dir_group_members m
- where group_id = :group_id"
+        set table_and_group [db_map table_and_group_2]
         set group_id [lindex [dir_app_group_info] 0]
     }