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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl	11 Apr 2008 17:16:43 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl	11 Mar 2010 11:20:48 -0000	1.2
@@ -31,19 +31,19 @@
                             -password $password \
 			    -authority_id $authority_id \
 			    -no_cookie]
-	    if {![string equal $auth(auth_status) "ok"]} {
+	    if {$auth(auth_status) ne "ok" } {
 		array set auth [auth::authenticate \
 				    -email $user \
 				    -password $password \
 				    -authority_id $authority_id \
 				    -no_cookie]
 	    }
-	    if {[string equal $auth(auth_status) "ok"]} {
+	    if {$auth(auth_status) eq "ok"} {
 		# we can stop checking
 		break
 	    }
 	}
-	if {![string equal $auth(auth_status) "ok"]} {
+	if {$auth(auth_status) ne "ok" } {
 	    ns_log debug "\nTDAV 5.0 auth status $auth(auth_status)"
 	    ns_returnunauthorized
 	    return 0