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 -N -r1.77 -r1.78
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Jul 2015 21:22:51 -0000	1.77
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Jul 2015 09:05:10 -0000	1.78
@@ -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]]