Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.432
diff -u -r1.432 tkchat.tcl
--- tkchat.tcl	23 May 2008 18:51:46 -0000	1.432
+++ tkchat.tcl	5 Jun 2008 08:08:29 -0000
@@ -3431,7 +3431,7 @@
     lappend txt [list \
 	    "Send private message to a user identified by nickname or JID"]
 
-    lappend txt "/whisper ?reason?"
+    lappend txt "/whisper <nick|JID> <text>"
     lappend txt [list "Synonym for /msg"]
 
     lappend txt "/chat <nick|JID> ?text?"
@@ -4185,7 +4185,7 @@
 	}
 	{^/back} {
             set status ""
-	    regexp {^/status\s*(.*)$} $msg -> status
+	    regexp {^/back\s*(.*)$} $msg -> status
 	    ::tkjabber::back $status
 	}
         {^/quit$} {
