diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index 7e971c9c6..a3ae1ec39 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -95,7 +95,7 @@ this variable.")
 
 (defun org-babel-expand-body:R (body params &optional graphics-file)
   "Expand BODY according to PARAMS, return the expanded body."
-  (mapconcat #'identity
+  (mapconcat 'identity
 	     (append
 	      (when (cdr (assoc :prologue params))
 		(list (cdr (assoc :prologue params))))
@@ -120,7 +120,7 @@ This function is called by `org-babel-execute-src-block'."
 	   (full-body
 	    (let ((inside
 		   (list (org-babel-expand-body:R body params graphics-file))))
-	      (mapconcat #'identity
+	      (mapconcat 'identity
 			 (if graphics-file
 			     (append
 			      (list (org-babel-R-construct-graphics-device-call
@@ -163,7 +163,7 @@ This function is called by `org-babel-execute-src-block'."
 
 (defun org-babel-variable-assignments:R (params)
   "Return list of R statements assigning the block's variables."
-  (let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
+  (let ((vars (mapcar 'cdr (org-babel-get-header params :var))))
     (mapcar
      (lambda (pair)
        (org-babel-R-assign-elisp
@@ -368,7 +368,7 @@ last statement in BODY, as elisp."
 	column-names-p)))
     (output
      (mapconcat
-      #'org-babel-chomp
+      'org-babel-chomp
       (butlast
        (delq nil
 	     (mapcar
@@ -380,7 +380,7 @@ last statement in BODY, as elisp."
 		     (substring line (match-end 1))
 		   line))
 	       (org-babel-comint-with-output (session org-babel-R-eoe-output)
-		 (insert (mapconcat #'org-babel-chomp
+		 (insert (mapconcat 'org-babel-chomp
 				    (list body org-babel-R-eoe-indicator)
 				    "\n"))
 		 (inferior-ess-send-input)))))) "\n"))))