help for Help

diff --git a/parsecmd.tcl b/parsecmd.tcl
index de8d322c7eed996e50172577dd65200e806944cb..a9b06df71198131262b05a2255d0468eba8b73d1 100644 (file)
--- a/parsecmd.tcl
+++ b/parsecmd.tcl
@@ -30,7 +30,7 @@ proc go_usercommand {p c n dest text} {
     set ucmd [ta_word]
     set procname ucmd/[string tolower $ucmd]
     if {[catch { info body $procname }]} {
-       usererror "Unknown command; try help for help."
+       usererror "Unknown command; try help for Help."
     }
     $procname $p $dest
 }