Index: openacs-4/packages/acs-lang/lib/messages-to-translate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/lib/messages-to-translate.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	30 Sep 2003 10:28:50 -0000	1.5
+++ openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	23 Oct 2003 09:56:41 -0000	1.6
@@ -50,7 +50,7 @@
         set key_split [split $message_key "."]
         set package_key_part [lindex $key_split 0]
         set message_key_part [lindex $key_split 1]
-        set translate_url "/acs-lang/admin/edit-localized-message?[export_vars {{message_key $message_key_part} {package_key $package_key_part} locale}]"
+        set translate_url "/acs-lang/admin/edit-localized-message?[export_vars {{message_key $message_key_part} {package_key $package_key_part} locale { return_url [ad_return_url] } }]"
 
         set translated_p [lang::message::message_exists_p [ad_conn locale] $message_key]