Index: openacs-4/packages/contacts/lib/groups-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups-portlet.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/lib/groups-portlet.tcl	16 Feb 2006 14:26:54 -0000	1.4
+++ openacs-4/packages/contacts/lib/groups-portlet.tcl	20 Feb 2006 22:01:02 -0000	1.5
@@ -7,4 +7,4 @@
 set portlet_layout [parameter::get -parameter "DefaultPortletLayout"]
 set package_url [ad_conn package_url]
 
-set groups_url "${package_url}/${party_id}/groups"
\ No newline at end of file
+set groups_url "[contact::url -party_id ${party_id}]groups"
\ No newline at end of file