diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el
index 3f156d025..07134895b 100644
--- a/lisp/ob-lisp.el
+++ b/lisp/ob-lisp.el
@@ -91,10 +91,10 @@ current directory string."
 					(point-min) (point-max)))))
 				 (cdr (assoc :package params)))))))
      (org-babel-result-cond (cdr (assoc :result-params params))
-       (car result)
+       result
        (condition-case nil
-           (read (org-babel-lisp-vector-to-list (cadr result)))
-         (error (cadr result)))))
+           (read (org-babel-lisp-vector-to-list result))
+         (error result))))
    (org-babel-pick-name (cdr (assoc :colname-names params))
 			(cdr (assoc :colnames params)))
    (org-babel-pick-name (cdr (assoc :rowname-names params))