Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	11 Jun 2005 06:10:53 -0000	1.12
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	12 Jun 2005 19:30:14 -0000	1.13
@@ -256,7 +256,10 @@
             if {$component_count > 0 
 		&& ( $expand == "all" || $expand == $group_id ) } {
                 db_foreach get_components {} {
-                    lappend group_list [list "$indent_with$group_name" $group_id $member_count "2" $mapped_p $default_p]}
+		    if {$mapped_p || $all_p} {
+			lappend group_list [list "$indent_with$group_name" $group_id $member_count "2" $mapped_p $default_p]
+		    }
+		}
             }
         }
     }