diff options
Diffstat (limited to 'ensemble.tcl')
| -rw-r--r-- | ensemble.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ensemble.tcl b/ensemble.tcl index 9e87809..5c49808 100644 --- a/ensemble.tcl +++ b/ensemble.tcl @@ -18,7 +18,7 @@ proc ensemble {command args} { if {$subcmd in {-commands -help}} { # Need to remove $autoprefix from the front of these set prefixlen [string length $autoprefix] - set subcmds [lmap p [lsort [info commands $autoprefix*]] { + set subcmds [lmap p [lsort [info commands -all $autoprefix*]] { string range $p $prefixlen end }] if {$subcmd eq "-commands"} { |