Index: mtargs/mtargs.scm
==================================================================
--- mtargs/mtargs.scm
+++ mtargs/mtargs.scm
@@ -19,19 +19,27 @@
 (module mtargs
     (
      arg-hash
      get-arg
      get-arg-from
-     usage
      get-args
+     usage
      print-args
      any-defined?
      )
 
-(import scheme (chicken base) (chicken port) (chicken file) (chicken process-context))
-(import srfi-69 srfi-1)
+(import scheme) ;; gives us cond-expand in chicken-4
+
+(cond-expand
+ (chicken-5
+  (import scheme (chicken base) (chicken port) (chicken file) (chicken process-context))
+  (import srfi-69 srfi-1))
+ (chicken-4
+  (import chicken posix srfi-69 srfi-1))
+ (else))
 
+(define usage (make-parameter print))
 (define arg-hash (make-hash-table))
 
 (define (get-arg arg . default)
   (if (null? default)
       (hash-table-ref/default arg-hash arg #f)