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.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	30 May 2009 20:42:12 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	2 Jun 2009 00:40:22 -0000	1.4
@@ -36,8 +36,8 @@
 }
 aa_register_case \
     -cats {api smoke} \
-    -procs {person::person_p person::get person::new person::update acs_user::get_bio acs_user::update_bio} \
-    person_user_procs_test \
+    -procs {person::person_p person::get person::new person::update person::get_bio person::update_bio} \
+    person_procs_test \
     {
 	test if the values returned by the person procs are correct
     } {
@@ -84,9 +84,9 @@
 		aa_true "name changed" [string match [person::name -person_id $prs_id] "hh$first_names hh$last_name"]
 		
 		set bio "bio :: [ad_generate_random_string] :: bio"
-		acs_user::update_bio -user_id $prs_id -bio $bio
+		person::update_bio -user_id $prs_id -bio $bio
 		
-		aa_true "bio(graphy) ok" [string match $bio [acs_user::get_bio -user_id $prs_id -exists_var bio_p]]
+		aa_true "bio(graphy) ok" [string match $bio [person::get_bio -user_id $prs_id -exists_var bio_p]]
 		
 		person::delete -person_id $prs_id
                 aa_true "person deleted" ![person::person_p -party_id $prs_id]