Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.72.2.26 -r1.72.2.27
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Jul 2015 21:27:49 -0000	1.72.2.26
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Jul 2015 09:01:35 -0000	1.72.2.27
@@ -149,7 +149,7 @@
   ::xo::XOTcl1_ParameterHandler instproc parameter {list} {
     set result {}
     foreach element $list {
-      if {$l == [llength $element]} {
+      if {[llength $element] == 1} {
         lappend result [my __stripped_parameter $element]
       } else {
         lappend result [concat [my __stripped_parameter $element] [lrange $element 1 end]]