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
 }