Merge up from trunk. cvs up -j branchpoint-2001-10-09-tell -j mergeup-1-2001-10...

[ircbot] / parsecmd.tcl

diff --git a/parsecmd.tcl b/parsecmd.tcl
index d7fba69..6c6f81d 100644 (file)
--- a/parsecmd.tcl
+++ b/parsecmd.tcl
@@ -39,7 +39,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
 }