cat: Oops, two fixes.

gash/bournish-commands.scm

@@ -79,7 +79,7 @@
             (else 1)))))))
 
 (define basename-command (wrap-command "basename" gash:basename))
-(define cat-command (wrap-command cat "cat"))
+(define cat-command (wrap-command "cat" cat))
 (define compress-command (wrap-command "compress" compress))
 (define cp-command (wrap-command "cp" cp))
 (define dirname-command (wrap-command "dirname" gash:dirname))

gash/commands/cat.scm

@@ -36,6 +36,6 @@
               (call-with-input-file file
                 (lambda (port)
                   (dump-port port (current-output-port))))))
-        0 args))
+        0 (if (null? args) '("-") args)))
 
 (define main cat)