1 files changed, 2 insertions, 1 deletions
diff --git a/batch.scm b/batch.scm
index 0219562..14117d0 100644
--- a/batch.scm
+++ b/batch.scm
@@ -259,7 +259,7 @@
     ((unix) ((cond ((and (string? name) (provided? 'system))
 		    (lambda (proc)
 		      (let ((ans (call-with-output-file name proc)))
-			(system (string-append "chmod +x " name))
+			(system (string-append "chmod +x '" name "'"))
 			ans)))
 		   ((output-port? name) (lambda (proc) (proc name)))
 		   (else (lambda (proc) (proc (current-output-port)))))
@@ -426,6 +426,7 @@
        (apple2		*unknown*)
        (arm		*unknown*)
        (atari.st	*unknown*)
+       (atari-st	*unknown*)
        (cdc		*unknown*)
        (celerity	*unknown*)
        (concurrent	*unknown*)