Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.98.2.10 -r1.98.2.11
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Jul 2021 17:36:31 -0000	1.98.2.10
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	5 Dec 2021 15:37:48 -0000	1.98.2.11
@@ -387,7 +387,7 @@
         set user_id [ns_cache eval user_info_cache $key {
             set user_id [acs_user::get_by_username_not_cached \
                              -authority_id $authority_id \
-                             -username     $username]
+                             -username $username]
             #
             # Don't cache results from invalid usernames.
             #
@@ -469,7 +469,7 @@
         set user_id [expr {$username ne "" ?
                            [acs_user::get_by_username \
                                 -authority_id $authority_id \
-                                -username     $username] :
+                                -username $username] :
                            [ad_conn user_id]}]
     }
 
@@ -738,12 +738,17 @@
 }
 
 
-ad_proc -public acs_user::ScreenName {} {
-    Get the value of the ScreenName parameter. Checked to ensure that it only returns none, solicit, or require.
+ad_proc -public acs_user::ScreenName {} {    
+    Get the value of the ScreenName parameter. Checked to ensure that
+    it only returns none, solicit, or require.    
 } {
-    set value [parameter::get -parameter ScreenName -package_id [ad_acs_kernel_id] -default "solicit"]
+    set value [parameter::get \
+                   -parameter ScreenName \
+                   -package_id $::acs::kernel_id \
+                   -default "solicit"]
     if { $value ni {"none" "solicit" "require"} } {
-        ns_log Error "acs-kernel.ScreenName parameter invalid. Set to '$value', should be one of none, solicit, or require."
+        ns_log error "acs-kernel.ScreenName parameter invalid." \
+            "Set to '$value', should be one of none, solicit, or require."
         return "solicit"
     } else {
         return $value