Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -r1.35.2.5 -r1.35.2.6
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	1 Feb 2021 10:51:09 -0000	1.35.2.5
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	23 Feb 2021 09:37:33 -0000	1.35.2.6
@@ -528,18 +528,23 @@
             # Need to find out which username was set
             set username $result(username)
 
-            array set result [auth::local::registration::Register \
-                {} \
-                $username \
-                [auth::authority::local] \
-                $first_names \
-                $last_name \
-                $screen_name \
-                $email \
-                $url \
-                $password \
-                $secret_question \
-                $secret_answer]
+            set call_args [list \
+                               {} \
+                               $username \
+                               [auth::authority::local] \
+                               $first_names \
+                               $last_name \
+                               $screen_name \
+                               $email \
+                               $url \
+                               $password \
+                               $secret_question \
+                               $secret_answer]
+            array set result [acs_sc::invoke \
+                                  -contract "auth_registration" \
+                                  -operation "Register" \
+                                  -impl local \
+                                  -call_args $call_args]
         }
     } else {
         array set result [auth::create_user -email $email \