diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index 9f4eb4b13..41b943cbf 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -252,7 +252,8 @@ This function is called by `org-babel-execute-src-block'."
   (unless (string= session "none")
     (let ((session (or session "*R*"))
 	  (ess-ask-for-ess-directory
-	   (and (and (boundp 'ess-ask-for-ess-directory) ess-ask-for-ess-directory)
+	   (and (boundp 'ess-ask-for-ess-directory)
+		ess-ask-for-ess-directory
 		(not (cdr (assoc :dir params))))))
       (if (org-babel-comint-buffer-livep session)
 	  session