Index: openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl	11 Mar 2010 11:20:48 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl	27 Oct 2014 16:40:07 -0000	1.3
@@ -18,10 +18,8 @@
         # get the second bit, the base64 encoded bit
         set up [lindex [split $a " "] 1]
         # after decoding, it should be user:password; get the username
-        set user [lindex [split [ns_uudecode $up] ":"] 0]
-        set password [lindex [split [ns_uudecode $up] ":"] 1]
+	lassign [split [ns_uudecode $up] ":"] user password
         ns_log debug "\nACS VERSION [ad_acs_version]"
-        
         ns_log debug "\nHTTP authentication"
 	# check all authorities 
 	foreach authority [auth::authority::get_authority_options] {
@@ -95,7 +93,7 @@
     if {$proc eq {}} {
 	set proc http_auth::site_node_authorize
     }
-    return [eval [list $proc -user_id $user_id -url [ns_conn url]]]
+    return [$proc -user_id $user_id -url [ns_conn url]]
 }
 
 ad_proc http_auth::site_node_authorize {