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.78.2.26 -r1.78.2.27
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	1 Mar 2017 20:04:44 -0000	1.78.2.26
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Apr 2017 10:12:03 -0000	1.78.2.27
@@ -886,7 +886,7 @@
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instargs {*}$args]}
       set posargs {}
       foreach m [$o info method args {*}$args] p [$o info method parameters {*}$args] {
-        if {[string range [lindex $p 0] 0 0] eq "-"} continue
+        if {[string index [lindex $p 0] 0] eq "-"} continue
         lappend posargs $m
       }
       return $posargs