Index: openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	22 Oct 2003 16:27:37 -0000	1.5
+++ openacs-4/packages/acs-lang/www/admin/localized-message-new.tcl	22 Oct 2003 16:33:43 -0000	1.6
@@ -12,6 +12,7 @@
     locale
     package_key
     {message_key ""}
+    {return_url {[export_vars -base message-list { locale package_key }]}}
 }
 
 
@@ -39,8 +40,6 @@
     ad_script_abort
 }
 
-append return_url "message-list?[export_vars { locale package_key }]"
-
 form create message_new
 
 element create message_new package_key_display -label "Package" -datatype text \
@@ -53,6 +52,8 @@
 
 element create message_new package_key -datatype text -widget hidden
 
+element create message_new return_url -datatype text -widget hidden -optional
+
 # The two hidden tags that we need to pass on the key and language to the
 # processing of the form
 element create message_new locale -label "locale" -datatype text -widget hidden
@@ -62,6 +63,7 @@
     element set_value message_new package_key $package_key
     element set_value message_new locale $current_locale
     element set_value message_new message_key $message_key
+    element set_value message_new return_url $return_url
     if { [empty_string_p $message_key] } {
         set focus message_new.message_key
     } else {