diff --git a/contrib/babel/lisp/langs/org-babel-emacs-lisp.el b/contrib/babel/lisp/langs/org-babel-emacs-lisp.el
index 313b4a664..a7b50a305 100644
--- a/contrib/babel/lisp/langs/org-babel-emacs-lisp.el
+++ b/contrib/babel/lisp/langs/org-babel-emacs-lisp.el
@@ -39,16 +39,13 @@
   "Execute a block of emacs-lisp code with org-babel.  This
 function is called by `org-babel-execute-src-block' via multiple-value-bind."
   (message "executing emacs-lisp code block...")
-  (case result-type
-    (output '())
-    (value (save-window-excursion
-             (let ((print-level nil) (print-length nil))
-               (eval `(let ,(mapcar (lambda (var) `(,(car var) ',(cdr var))) vars)
-                        ,(read (concat "(progn "
-                                       (if (or (member "code" result-params)
-                                               (member "pp" result-params))
-                                           (concat "(pp " body ")") body)
-                                       ")")))))))))
-
+  (save-window-excursion
+    (let ((print-level nil) (print-length nil))
+      (eval `(let ,(mapcar (lambda (var) `(,(car var) ',(cdr var))) vars)
+	       ,(read (concat "(progn "
+			      (if (or (member "code" result-params)
+				      (member "pp" result-params))
+				  (concat "(pp " body ")") body)
+			      ")")))))))
 (provide 'org-babel-emacs-lisp)
 ;;; org-babel-emacs-lisp.el ends here
diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el
index 49f4acfd6..72816621c 100644
--- a/contrib/babel/lisp/org-babel.el
+++ b/contrib/babel/lisp/org-babel.el
@@ -189,7 +189,7 @@ the header arguments specified at the source code block."
     (if (eq result-type 'value)
         (setq result (org-babel-process-value-result result result-params)))
     (org-babel-insert-result result result-params)
-    (case result-type (output nil) (value result))))
+    result))
 
 (defun org-babel-load-in-session (&optional arg info)
   "Load the body of the current source-code block.  Evaluate the