Index: openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl,v
diff -u -N -r1.30.2.3 -r1.30.2.4
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	8 Oct 2019 09:16:20 -0000	1.30.2.3
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	8 Oct 2019 09:18:48 -0000	1.30.2.4
@@ -33,10 +33,13 @@
     :log "[ns_conn method] request comes with headers [ns_set array [ns_conn headers]]"
     set ah [ns_set iget [ns_conn headers] Authorization]
     if {$ah ne ""} {
-      # should be something like "Basic 29234k3j49a"
+      #
+      # The content of the authorization header should be something
+      # like "Basic 29234k3j49a".
+      #
       :log "auth_check authentication info $ah"
       #
-      # Get the base64 encoded element auf the authorization
+      # Get the base64 encoded element of the authorization
       # header (2nd element)
       #
       set decoded [ns_uudecode [lindex [split $ah " "] 1]]