Index: openacs-4/packages/acs-admin/www/test/security-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/test/security-test.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/test/security-test.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/test/security-test.tcl	10 Jan 2007 21:22:00 -0000	1.2
@@ -10,7 +10,7 @@
 
 set result [ad_get_client_property test MyName]
 
-if { [string compare $result MyValue] == 0 } {
+if { $result eq "MyValue"  } {
     ns_write "<li>Success: Client property successfully retrieved..."
 } else {
     ns_write "<li>Failure: Client property was incorrectly retrieved, expected MyValue, instead got $result..."