diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4233d43..b9a37c7 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -734,7 +734,8 @@
   (defun scad-compile (ext)
     "Compile current buffer using 'scad-command' and the extention 'ext'"
     (interactive (list (completing-read "Extension: " '("stl" "off" "amf" "dxf" "svg" "csg" "png"))))
-    (compile (concat scad-command " -o " (file-name-sans-extension buffer-file-name) "." ext " " buffer-file-name)))
+    (compile (combine-and-quote-strings
+              `(,scad-command "-o" ,(file-name-with-extension buffer-file-name ext) ,buffer-file-name))))
   :bind (:map scad-mode-map ("C-c z" . scad-compile)))
 
 (use-package smart-tabs-mode