Index: help.tcl ================================================================== --- help.tcl +++ help.tcl @@ -346,11 +346,11 @@ set sep " " # Get the commands in the category, preliminary formatting # (labels, descriptions). - foreach def [lsort -dict -unique $cmds($path)] { + foreach def [lsort -dict -unique [dict get $cmds $path]] { lassign $def syntax desc lappend names $syntax lappend descs $desc } set labels [cmdr util padr $names] @@ -371,14 +371,14 @@ lappend lines $indent$label$sep$desc } lappend lines {} - if {![info exists subc($path)]} return + if {![dict exists $subc $path]} return # Print the sub-categories, if any. - foreach c [lsort -dict -unique $subc($path)] { + foreach c [lsort -dict -unique [dict get $subc $path]] { ShowCategory $width lines [linsert $path end $c] $indent } return }