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.77 -r1.78
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	14 May 2007 20:30:18 -0000	1.77
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	23 Nov 2007 11:02:25 -0000	1.78
@@ -64,10 +64,10 @@
     # set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]]
     # ns_log notice "URL have url, len=[string length $return_url] $user_agent"
 
-    set url_too_long [expr {[string length $return_url] > 2083}]
-    if {$url_too_long} {
-      set message "URL too long. If you were editing a from, please use the back button after logging in and resubmit the form" 
-      set return_url "."
+    if {[expr {[string length $return_url] > 2083}]} {
+      set message "Your login expired and the computed URL for automated continuation is too long. " 
+      append message "If you were editing a from, please use the back button after logging in and resubmit the form." 
+      set return_url [ad_get_login_url]
     }
 
     # The -return switch causes the URL to return to the current page