Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/contacts/www/contact-add.tcl	1 Jul 2005 00:36:10 -0000	1.22
+++ openacs-4/packages/contacts/www/contact-add.tcl	1 Jul 2005 22:46:04 -0000	1.23
@@ -315,7 +315,8 @@
 #            ad_returnredirect [export_vars -base "/contacts/$object_type/add" -url]
 #        } else {
 	if {[empty_string_p $object_id_two]} {
-            ad_returnredirect [export_vars -base "/contacts" -url {{query_id $group_id}}] 
+	    ad_returnredirect [contact::url -party_id $party_id]
+#            ad_returnredirect [export_vars -base "/contacts" -url {{query_id $group_id}}] 
 	} else {
 	    ad_returnredirect "/contacts/$object_id_two"
 	}