Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	26 Jan 2004 15:39:41 -0000	1.61
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	8 Feb 2004 17:20:14 -0000	1.62
@@ -42,8 +42,13 @@
 	return $user_id
     }
 
+    set message {}
+    if { [string equal [ad_conn auth_level] "expired"] } {
+        set message [_ acs-subsite.lt_Your_login_has_expire]
+    }
+
     # The -return switch causes the URL to return to the current page
-    ad_returnredirect [ad_get_login_url -return]
+    ad_returnredirect -message $message -- [ad_get_login_url -return]
     ad_script_abort
 }