@@ -5,12 +5,12 @@
 lappend auto_path [file join [file dirname [info script]] lib]
 
 package require teapotclient
 
 proc print_help {} {
-	puts stderr "Usage: teapot-client.tcl get <dir> <os> <cpu> <packages...>"
-	puts stderr "Usage: teapot-client.tcl list ?<os> ?<cpu>??"
+	puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
+	puts stderr "Usage: teapot-client list ?<os> ?<cpu>??"
 }
 
 set cmd [lindex $argv 0]
 set argv [lrange $argv 1 end]