diff --git a/compile-r7rs b/compile-r7rs
index 1731d36..99962fe 100755
--- a/compile-r7rs
+++ b/compile-r7rs
@@ -46,6 +46,7 @@ case "${SCMC}" in
         scm_cmd="csi -b -R r7rs $paths -script"
         ;;
     csc)
+        set -x
         paths="-I $tmpdir"
         objects=""
         units="r7rs,scheme.base,scheme.case-lambda,scheme.char,scheme.complex,scheme.cxr,scheme.eval,scheme.file,scheme.inexact,scheme.lazy,scheme.load,scheme.process-context,scheme.read,scheme.repl,scheme.time,scheme.write,scheme.r5rs"
@@ -63,8 +64,9 @@ case "${SCMC}" in
                 objects="$objects ${lib%.sld}.o"
             done
         done
-        csc -X r7rs -R r7rs -cc ${CC} ${CSCFLAGS} -static -uses ${units} ${main}
-        chmod +x "$output"
+        output="${main%.scm}"
+        csc -X r7rs -R r7rs -cc ${CC} ${CSCFLAGS} -static -o "${output}" -uses ${units} ${main}
+        test -f "${output}" && chmod +x "${output}"
         exit 0
         ;;
     icyc)