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.24 -r1.24.2.1
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	22 Jun 2018 20:11:55 -0000	1.24
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	8 May 2019 14:22:02 -0000	1.24.2.1
@@ -192,7 +192,7 @@
       # there).  We simply iterate here of the classes of packages
       # (only a few exist).
       # 
-      #my log "--p looking for $parameter_name in superclass of package_key=$package_key"
+      #:log "--p looking for $parameter_name in superclass of package_key=$package_key"
       set success 0
       set pkg_class [::xo::PackageMgr get_package_class_from_package_key $package_key]
       if {$pkg_class ne ""} {
@@ -309,7 +309,7 @@
     set key [:parameter_name]
     set nsv_array_name [:per_package_id_name $package_id]
     if {[nsv_exists $nsv_array_name $key]} {
-      #my log "--parameter get <$key> from $nsv_array_name --> '[nsv_get $nsv_array_name $key]'"
+      #:log "--parameter get <$key> from $nsv_array_name --> '[nsv_get $nsv_array_name $key]'"
       set :__success 1
       return [nsv_get $nsv_array_name $key]
     }
@@ -322,12 +322,12 @@
     #     foreach cls $package_class_hierarchy {
     #       set nsv_array_name [:per_package_class_name $cls]
     #       if {[nsv_exists $nsv_array_name $key]} {
-    #         #my log "--parameter get <$key> from $nsv_array_name --> '[nsv_get $nsv_array_name $key]'"
+    #         #:log "--parameter get <$key> from $nsv_array_name --> '[nsv_get $nsv_array_name $key]'"
     #         return [nsv_get $nsv_array_name $key]
     #       }
     #     }
     #
-    #my log "--parameter get <$key> from default of [:package_key] --> '[:default_value]'"
+    #:log "--parameter get <$key> from default of [:package_key] --> '[:default_value]'"
     set :__success 0
     return [:default_value]
   }