Index: openacs-4/packages/acs-lang/www/admin/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-delete.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-lang/www/admin/message-delete.tcl	14 Jun 2015 00:11:01 -0000	1.7
+++ openacs-4/packages/acs-lang/www/admin/message-delete.tcl	27 Jun 2015 16:23:12 -0000	1.8
@@ -24,8 +24,8 @@
 set default_locale_label [lang::util::get_label $default_locale]
 
 set page_title "Delete Message"
-set context [list [list "package-list?[export_vars { locale }]" $locale_label] \
-                 [list "message-list?[export_vars { locale package_key show }]" $package_key] \
+set context [list [list [export_vars -base package-list { locale }] $locale_label] \
+                 [list [export_vars -base message-list { locale package_key show }] $package_key] \
                  $page_title]
 
 set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }]
@@ -37,6 +37,6 @@
         -message_key $message_key \
         -locale $locale
 
-    ad_returnredirect "message-list?[export_vars { locale package_key show }]"
+    ad_returnredirect [export_vars -base message-list { locale package_key show }]
     ad_script_abort
 }