Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.41.2.4 -r1.41.2.5
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	8 May 2019 14:22:01 -0000	1.41.2.4
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	4 Jul 2019 18:11:46 -0000	1.41.2.5
@@ -408,7 +408,8 @@
     foreach _var $variables {
       if {[llength $_var] == 2} {
         #
-        # The variable specification is a pair of name and value
+        # The variable specification "$_var" is a pair of name and
+        # value.
         #
         lappend __vars [lindex $_var 0] [uplevel subst [lindex $_var 1]]
       } else {