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.78.2.27 -r1.78.2.28
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Apr 2017 10:12:03 -0000	1.78.2.27
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Apr 2017 10:19:30 -0000	1.78.2.28
@@ -895,7 +895,7 @@
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info args {*}$args]}
       set posargs {}
       foreach m [$o info object method args {*}$args] p [$o info object method parameters {*}$args] {
-        if {[lrange [string index $p 0] 0 0] eq "-"} continue
+        if {[lindex [string index $p 0] 0] eq "-"} continue
         lappend posargs $m
       }
       return $posargs