Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	29 Sep 2003 09:49:40 -0000	1.29
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	29 Sep 2003 09:53:09 -0000	1.30
@@ -324,10 +324,15 @@
         -rollback \
         -test_code {
             # create user we'll use for testing
-            set user_id [ad_user_new "test2@user.com" "Test" "User" "changeme" "no_question" "no_answer"]
+            array set user_info [auth::create_user \
+                    -email "test2@user.com" \
+                    -first_names "Test" \
+                    -last_name "User" \
+                    -password "changeme" \
+                    -secret_question "no_question" \
+                    -secret_answer "no_answer"]
+            set user_id $user_info(user_id)
 
-
-
             # password_status "ok"
             set old_password "changeme"
             set new_password "changedyou"