Index: openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	10 Aug 2006 21:22:47 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	10 Jan 2007 21:22:12 -0000	1.2
@@ -54,7 +54,7 @@
 				 -password $password  -secret_question [ad_generate_random_string] \
 				 -secret_answer [ad_generate_random_string]]
 	
-	if { ![string equal $user_info(creation_status) ok] } {
+	if { $user_info(creation_status) ne "ok" } {
 	    # Could not create user
 	    error "Could not create test user with username=$username user_info=[array get user_info]"
 	}
@@ -119,7 +119,7 @@
 				 -secret_question [ad_generate_random_string] \
 				 -secret_answer [ad_generate_random_string]]
 	
-        if { ![string equal $user_info(creation_status) ok] } {
+        if { $user_info(creation_status) ne "ok" } {
 	    # Could not create user                                                                                                    
             error "Could not create test user with username=$username user_info=[array get user_info]"
         }