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.32 -r1.33
--- openacs-4/packages/acs-subsite/lib/login.tcl	8 Sep 2008 20:00:10 -0000	1.32
+++ openacs-4/packages/acs-subsite/lib/login.tcl	31 Oct 2008 00:13:52 -0000	1.33
@@ -69,13 +69,7 @@
 set system_name [ad_system_name]
 
 if { [exists_and_not_null return_url] } {
-    set locations_list [security::locations]
-    # there may be as many as 3 valid full urls
-    set external_url [util_complete_url_p $return_url]
-    foreach location $locations_list {
-        set external_url [expr { $external_url && ![string match "$location/*" $return_url] } ] 
-    }
-    if { $external_url } {
+    if { [util::external_url_p $return_url] } {
       ad_returnredirect -message "only urls without a host name are permitted" "."
       ad_script_abort
     }