Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/lib/groups.tcl	19 May 2005 16:45:52 -0000	1.2
+++ openacs-4/packages/contacts/lib/groups.tcl	25 May 2005 02:14:09 -0000	1.3
@@ -10,6 +10,7 @@
 }
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
+set package_url [ad_conn package_url]
 
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]