Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-subsite/lib/login.tcl	24 Oct 2003 11:13:43 -0000	1.18
+++ openacs-4/packages/acs-subsite/lib/login.tcl	10 Nov 2003 16:51:01 -0000	1.19
@@ -131,7 +131,6 @@
     }
 }
 
-set expired_message [list [list message [_ acs-subsite.Login_has_expired]]]
 ad_form -extend -name login -on_request {
     # Populate fields from local vars
 
@@ -155,7 +154,8 @@
     
     if { [string compare $hash $computed_hash] != 0 || \
              $time < [ns_time] - [ad_parameter -package_id [ad_acs_kernel_id] LoginExpirationTime security 600] } {
-        ad_returnredirect [export_vars -base [ad_conn url] $expired_message]
+        set message [_ acs-subsite.Login_has_expired]
+        ad_returnredirect [export_vars -base [ad_conn url] { message return_url }]
         ad_script_abort
     }