Index: openacs-4/packages/contacts/www/relationship-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/relationship-delete.tcl	21 May 2005 21:00:41 -0000	1.1
+++ openacs-4/packages/contacts/www/relationship-delete.tcl	25 May 2005 02:09:52 -0000	1.2
@@ -20,7 +20,7 @@
 db_1row delete_rel {}
 
 if { ![exists_and_not_null return_url] } {
-    set return_url [export_vars -base "contact-rels" -url {party_id}]
+    set return_url "$party_id/relationships"
 }
 ad_returnredirect -message "Relationship Deleted" $return_url
 ad_script_abort