~ chicken-core (chicken-5) fa2f24af1b6cecf22414c9dd88cb898244b61b38

commit fa2f24af1b6cecf22414c9dd88cb898244b61b38
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jan 1 14:53:44 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jan 1 14:53:44 2016 +1300

    Fix feathers usage message so program name is interpolated

diff --git a/feathers.tcl b/feathers.tcl
index 368541d9..a2151d8d 100644
--- a/feathers.tcl
+++ b/feathers.tcl
@@ -1811,7 +1811,9 @@ proc SetupServer {} {
 
 proc Usage {code} {
     global the_name
-    puts stderr {Usage: $the_name [-help] [-n] [-d] [-dir DIRNAME] [-port PORT] [PROGRAM ARGUMENTS ...]}
+    set usage "Usage: $the_name "
+    append usage {[-help] [-n] [-d] [-dir DIRNAME] [-port PORT] [PROGRAM ARGUMENTS ...]}
+    puts stderr $usage
     exit $code
 }