diff --git a/core/src/vfs.sld b/core/src/vfs.sld
index 25eab4a..bd1d4f4 100644
--- a/core/src/vfs.sld
+++ b/core/src/vfs.sld
@@ -122,7 +122,7 @@
                 (begin
                   (iter-dir (if (string=? dirpath "") name (string-append dirpath "/" name)))
                   (set! out (mapping-set! out (cons dirpath name) 'directory)))
-                (set! out (mapping-set! out (cons dirpath name) (zfile (zexp ,(call-with-input-file (string-append reldir "/" name) read-full-file))))))))
+                (set! out (mapping-set! out (cons dirpath name) (zfile (zexp ,(call-with-input-file (string-append reldir "/" name) read-full-file)) (file-executable? (string-append reldir "/" name))))))))
           contents))
       (iter-dir "")
       (make-vfs out))