Index: margs.scm
==================================================================
--- margs.scm
+++ margs.scm
@@ -17,12 +17,12 @@
       (hash-table-ref/default args:arg-hash arg #f)
       (hash-table-ref/default args:arg-hash arg (car default))))
 
 (define (args:get-arg-from ht arg . default)
   (if (null? default)
-      (hash-table-ref/default ht arg #f))
-      (hash-table-ref/default ht arg (car default)))
+      (hash-table-ref/default ht arg #f)
+      (hash-table-ref/default ht arg (car default))))
 
 (define (args:usage . args)
   (if (> (length args) 0)
       (apply print "ERROR: " args))
   (if (string? help)
@@ -34,11 +34,12 @@
 (define (args:get-args args params switches arg-hash num-needed)
   (let* ((numargs (length args))
 	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
     (if (< numargs (if adj-num-needed adj-num-needed 2))
 	(if (>= num-needed 1)
-	    (args:usage "No arguments provided"))
+	    (args:usage "No arguments provided")
+	    '())
 	(let loop ((arg (cadr args))
 		   (tail (cddr args))
 		   (remargs '()))
 	  (cond 
 	   ((member arg params) ;; args with params