diff --git a/el/sclang-interp.el b/el/sclang-interp.el
index 60d2d48..5360409 100644
--- a/el/sclang-interp.el
+++ b/el/sclang-interp.el
@@ -549,10 +549,11 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
 (defun sclang-eval-document (&optional silent-p)
   "Execute the whole document as SuperCollider code."
   (interactive "P")
-  (mark-whole-buffer)
-  (sclang-eval-string
-   (buffer-substring-no-properties (region-beginning) (region-end))
-   (not silent-p)))
+  (save-excursion
+    (mark-whole-buffer)
+    (sclang-eval-string
+     (buffer-substring-no-properties (region-beginning) (region-end))
+     (not silent-p))))
 
 (defvar sclang-eval-results nil
   "Save results of sync SCLang evaluation.")