Index: openacs-4/packages/xooauth/tcl/authorize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/authorize-procs.tcl,v
diff -u -r1.1.2.8 -r1.1.2.9
--- openacs-4/packages/xooauth/tcl/authorize-procs.tcl	25 May 2023 09:13:42 -0000	1.1.2.8
+++ openacs-4/packages/xooauth/tcl/authorize-procs.tcl	25 May 2023 09:39:29 -0000	1.1.2.9
@@ -233,10 +233,10 @@
                         -id $email \
                         -user_id $user_id
 
-                    acs_privacy::set_user_read_private_data \
-                        -user_id $user_id \
+                    ::permission::grant \
+                        -party_id $user_id \
                         -object_id [dotlrn::get_package_id] \
-                        -value 1
+                        -privilege read_private_data
                 }
             } on_error {
                 ns_log error "OAuth Login (Error during user creation): $errmsg ($email)"