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.12 -r1.13
--- openacs-4/packages/acs-subsite/lib/login.tcl	22 Sep 2003 08:22:26 -0000	1.12
+++ openacs-4/packages/acs-subsite/lib/login.tcl	2 Oct 2003 12:42:51 -0000	1.13
@@ -150,9 +150,8 @@
     
     if { [string compare $hash $computed_hash] != 0 || \
              $time < [ns_time] - [ad_parameter -package_id [ad_acs_kernel_id] LoginExpirationTime security 600] } {
-        form set_error login password "The login page has expired. Please log in again."
-        element set_value login password {}
-        break
+        ad_returnredirect [export_vars -base [ad_conn url] { { message "The login page has expired. Please log in again." } }]
+        ad_script_abort
     }
 
     if { ![exists_and_not_null authority_id] } {