diff --git a/src/startup.tcl b/src/startup.tcl
index 06d2eb1409df030f52ee3bf9704833b883f62b05..1b5092e0a7df86b8239b54438b4a9088eacc8bb6 100644
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -68,7 +68,7 @@ proc tcl_help {args} {
 	global ocd_helptext
 	set cmd $args
 	foreach a [lsort $ocd_helptext] {
-		if {[string length $cmd]==0||[string first $cmd $a]!=-1} {
+		if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} {
 			set w 40
 			set cmdname [lindex $a 0]
 			set h [lindex $a 1]