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.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	7 Aug 2017 23:48:00 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	25 Jul 2018 03:10:58 -0000	1.7
@@ -14,22 +14,21 @@
     {
 	test community core procs returned values
     } {
-	
-	set user_id [db_nextval acs_object_id_seq]
-        set username [ad_generate_random_string]
-        set password [ad_generate_random_string]
-	
-	aa_run_with_teardown -test_code {
-	    array set user_info [twt::user::create -user_id $user_id]
+	aa_run_with_teardown -rollback -test_code {
+            set user_id [db_nextval acs_object_id_seq]
+            set username [ad_generate_random_string]
+            set password [ad_generate_random_string]
+            
+	    array set user_info [acs::test::user::create -user_id $user_id]
 	    set user_id_p [party::get_by_email -email $user_info(email)]
 	    aa_true "User ID CORRECTO" \
 	    	[string match $user_id_p $user_info(user_id)]
 	    set email_p [party::email -party_id $user_info(user_id)]
 	    aa_log "returns:  $email_p ,  creation:  $user_info(email)"
 	    aa_true "Email correcto" \
 		[string match $email_p [string tolower $user_info(email)]]
-	   
-    }
+        }
+
 }
 aa_register_case \
     -cats {api smoke} \