Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	30 Apr 2018 09:46:43 -0000	1.22
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	20 May 2018 11:23:00 -0000	1.23
@@ -236,7 +236,7 @@
       }
     }
     #
-    # if everything fails, return empty
+    # If everything fails, return empty.
     #
     return ""
   }
@@ -267,8 +267,10 @@
                       {-retry true}
                     } {
     if {![info exists package_id]} {
-      # try to get the package id; 
-      # if everything fails, use kernel_id (to be compatible with trad. parameter::get)
+      #
+      # Try to get the package id; if everything fails, use kernel_id
+      # (to be compatible with traditional parameter::get)
+      #
       set package_id [expr {[info commands ::xo::cc] ne "" ? 
                             [::xo::cc package_id] : 
                             [ns_conn isconnected] ? [ad_conn package_id] : [ad_acs_kernel_id]}]