diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index 7c36ab552..5ca7f871d 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -177,7 +177,8 @@ is true; otherwise returns the last value."
 		(geiser-debug-show-debug-p nil))
 	    (let ((ret (geiser-eval-region (point-min) (point-max))))
 	      (setq result (if output
-			       (geiser-eval--retort-output ret)
+			       (or (geiser-eval--retort-output ret)
+				   "Geiser Interpreter produced no output")
 			     (geiser-eval--retort-result-str ret "")))))
 	  (when (not repl)
 	    (save-current-buffer (set-buffer repl-buffer)