Index: openacs-4/packages/contacts/www/relationship-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-ae.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/contacts/www/relationship-ae.tcl	16 Mar 2006 00:27:34 -0000	1.13
+++ openacs-4/packages/contacts/www/relationship-ae.tcl	4 May 2006 11:37:20 -0000	1.14
@@ -96,12 +96,12 @@
 
     # send them on their way
     if { ![exists_and_not_null return_url] } {
-        set return_url "[contact::url -party_id $party_id]relationships"
+        set return_url "[contact::url -party_id $party_id -package_id $package_id]relationships"
     }
     set redirect_rel_types [parameter::get -parameter EditDataAfterRel -package_id [ad_conn package_id] -default ""]
     if { [regexp {\*} $redirect_rel_types match] || [lsearch $redirect_rel_types $rel_type] >= 0 } {
         # we need to redirect the party to the attribute add/edit page
-        set return_url [export_vars -base "[contact::url -party_id $party_id]edit" -url {return_url}]
+        set return_url [export_vars -base "[contact::url -party_id $party_id -package_id $package_id]edit" -url {return_url}]
         append message ". [_ contacts.lt_update_contact_if_needed]"
     }