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.7 -r1.1.2.8
--- openacs-4/packages/xooauth/tcl/authorize-procs.tcl	19 May 2023 18:27:27 -0000	1.1.2.7
+++ openacs-4/packages/xooauth/tcl/authorize-procs.tcl	25 May 2023 09:13:42 -0000	1.1.2.8
@@ -15,13 +15,15 @@
 
     ###########################################################
     #
-    # xo::Authorize class:
+    # xo::Authorize class
     #
-    # Base class to support OAuth authorization API
-    #
     ###########################################################
 
     nx::Class create ::xo::Authorize -superclasses ::xo::REST {
+        #
+        # Base class to support OAuth authorization API
+        #
+
         :property {pretty_name}
         :property {base_url}
         :property {responder_url}
@@ -114,6 +116,9 @@
         }
 
         :public method name {} {
+            #
+            # @return instance name
+            #
             return [expr {[info exists :pretty_name]
                           ? ${:pretty_name}
                           : [namespace tail [self]]}]
@@ -312,10 +317,15 @@
     }
 
     ####################################################################
-    # Tailored OAuth handler for GitHub
+    #
+    # ::xo::oauth::GitHub class
+    #
     ####################################################################
 
     nx::Class create ::xo::oauth::GitHub -superclasses ::xo::Authorize {
+        #
+        # Tailored OAuth handler for GitHub
+        #
 
         :property {pretty_name "GitHub"}
         :property {base_url https://github.com/login/oauth}
Index: openacs-4/packages/xooauth/tcl/ms-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/ms-procs.tcl,v
diff -u -r1.1.2.22 -r1.1.2.23
--- openacs-4/packages/xooauth/tcl/ms-procs.tcl	19 May 2023 18:27:27 -0000	1.1.2.22
+++ openacs-4/packages/xooauth/tcl/ms-procs.tcl	25 May 2023 09:13:42 -0000	1.1.2.23
@@ -1080,14 +1080,17 @@
 
     ###########################################################
     #
-    # ms::Authorize class:
+    # ms::Authorize class
     #
-    # Support for the Microsoft Microsoft identity platform ID
-    # tokens to login/logout via MS Azure accounts.
-    # https://learn.microsoft.com/en-us/azure/active-directory/develop/id-tokens
     ###########################################################
 
     nx::Class create ::ms::Authorize -superclasses ::xo::Authorize {
+        #
+        # Support for the Microsoft Microsoft identity platform ID
+        # tokens to login/logout via MS Azure accounts.
+        # https://learn.microsoft.com/en-us/azure/active-directory/develop/id-tokens
+        #
+
         :property {pretty_name "Azure"}
         :property {tenant}
         :property {version ""}