diff --git a/private/git.rkt b/private/git.rkt index 369887e9..52760cf7 100644 --- a/private/git.rkt +++ b/private/git.rkt @@ -68,6 +68,6 @@ (define (git-commit! message) - (define escaped-message (string-replace message "'" "\\'")) - (unless (system (format "git commit --all --quiet --message='~a'" escaped-message)) + (define escaped-message (string-replace message "\"" "\\\"")) + (unless (system (format "git commit --all --quiet --message=\"~a\"" escaped-message)) (raise-arguments-error 'git-commit! "committing files to Git failed")))