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.11 -r1.12
--- openacs-4/packages/acs-subsite/lib/login.tcl	19 Sep 2003 15:00:13 -0000	1.11
+++ openacs-4/packages/acs-subsite/lib/login.tcl	22 Sep 2003 08:22:26 -0000	1.12
@@ -187,6 +187,10 @@
         }
     }
 
+    if { [exists_and_not_null auth_info(account_url)] } {
+        ad_returnredirect $auth_info(account_url)
+        ad_script_abort
+    }
 
     # Handle account status
     switch $auth_info(account_status) {