Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.78.2.50 -r1.78.2.51
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	15 Apr 2017 09:16:10 -0000	1.78.2.50
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	15 Apr 2017 10:12:03 -0000	1.78.2.51
@@ -670,7 +670,7 @@
         ns_log $::security::log(login_url) "ad_get_login_url: UseHostnameDomainforReg current_location <$current_location> <$config_hostname> ne <$currentHost>"
         
         if { $currentHost ne $config_hostname} {
-            if { [string range $url 0 0] eq "/" } {
+            if { [string index $url 0] eq "/" } {
                 # Make the url fully qualified
                 if { [security::secure_conn_p] } {
                     set url_decoded [security::get_secure_qualified_url $url]
@@ -743,7 +743,7 @@
 
             if { $currentHost ne $config_hostname} {
 
-                if { [string range $return_url 0 0] eq "/" } {
+                if { [string index $return_url 0] eq "/" } {
                     # Make the return_url fully qualified
                     if { [security::secure_conn_p] } {
                         set return_url_decoded [security::get_secure_qualified_url $return_url]
@@ -1621,7 +1621,7 @@
 } {
     set uri [get_uri_part $url]
 
-    if { [string range $uri 0 0] ne "/" } {
+    if { [string index $uri 0] ne "/" } {
         # Make relative URI qualified
         return [ad_conn url]/$uri
     }