diff --git a/brmsaptool.scm b/brmsaptool.scm
index 856af1a..3d9ee7f 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -57,12 +57,14 @@
 
 (command-line
  print-help
- (-h "This help" ()
+ (-h () "This help"
      (print "Command-line options:")
      (newline)
      (print-help)
      (newline)
      (exit 0))
- (-mfkw "Member-File invalid Key Warning" () (*member-file-check-syntax* 'warning))
- (-mfkq "Member-File invalid Key Quiet" () (*member-file-check-syntax* 'quiet))
- (-mfec "Member-File parser Error Context (lines)" (n) (*member-file-context* (string->number n))))
+ (-mfkw () "Member-File invalid Key Warning" (*member-file-check-syntax* 'warning))
+ (-mfkq () "Member-File invalid Key Quiet" (*member-file-check-syntax* 'quiet))
+ (-mfec (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n))))
+
+(load-member-file "members/joe")
diff --git a/command-line.scm b/command-line.scm
index ebd1470..31969a6 100644
--- a/command-line.scm
+++ b/command-line.scm
@@ -121,12 +121,10 @@
    (syntax-rules ()
      ((_ opt help proc)
       (list (symbol->string 'opt) help proc))
-     ((_ opt help (args ...) body ...)
+     ((_ opt (args ...) help body ...)
       (list (symbol->string 'opt)
 	    help
-	    (lambda (args ...) body ...)))
-     ((_ opt help)
-      (list (symbol->string 'opt) help 'help))))
+	    (lambda (args ...) body ...)))))
 
  ;; Simple syntax wrapper for command-line arguments specification and
  ;; immediate parsing.