diff --git a/lisp/langs/org-babel-lisp.el b/lisp/langs/org-babel-lisp.el
index 5045c52b7..7d7520e18 100644
--- a/lisp/langs/org-babel-lisp.el
+++ b/lisp/langs/org-babel-lisp.el
@@ -35,12 +35,13 @@
 
 (add-to-list 'org-babel-tangle-langs '("emacs-lisp" "el"))
 
-(defun org-babel-execute:emacs-lisp (session body vars result-type)
+(defun org-babel-execute:emacs-lisp (body params)
   "Execute a block of emacs-lisp code with org-babel.  This
 function is called by `org-babel-execute-src-block'."
   (message "executing emacs-lisp code block...")
   (save-window-excursion
-    (let ((print-level nil) (print-length nil) results)
+    (let ((vars (org-babel-ref-variables params))
+          (print-level nil) (print-length nil) results)
       (setq results
             (eval `(let ,(mapcar (lambda (var) `(,(car var) ',(cdr var))) vars)
                      ,(read (concat "(progn " body ")")))))