diff --git a/EXPERIMENTAL/org-e-latex.el b/EXPERIMENTAL/org-e-latex.el
index 9c9bd4ee9..cfb9e9f23 100644
--- a/EXPERIMENTAL/org-e-latex.el
+++ b/EXPERIMENTAL/org-e-latex.el
@@ -893,8 +893,7 @@ contextual information."
   "Transcode a EXAMPLE-BLOCK element from Org to LaTeX.
 CONTENTS is nil.  INFO is a plist holding contextual information."
   (let* ((options (or (org-element-get-property :options example-block) ""))
-	 (value (org-export-handle-code
-		 (org-element-get-property :value example-block) options info)))
+	 (value (org-export-handle-code example-block info)))
     (org-e-latex--wrap-label
      example-block (format "\\begin{verbatim}\n%s\\end{verbatim}" value))))
 
@@ -1371,7 +1370,7 @@ INFO is a plist holding contextual information. See
      ;; equivalent line number.
      ((string= type "coderef")
       (format (org-export-get-coderef-format path (or desc ""))
-	      (cdr (assoc path (plist-get info :code-refs)))))
+	      (org-export-resolve-coderef path info)))
      ;; Link type is handled by a special function.
      ((functionp (setq protocol (nth 2 (assoc type org-link-protocols))))
       (funcall protocol (org-link-unescape path) desc 'latex))
@@ -1553,10 +1552,7 @@ holding contextual information."
 CONTENTS holds the contents of the item.  INFO is a plist holding
 contextual information."
   (let* ((lang (org-element-get-property :language src-block))
-	 (code (org-export-handle-code
-		(org-element-get-property :value src-block)
-		(org-element-get-property :switches src-block)
-		info lang))
+	 (code (org-export-handle-code src-block info))
 	 (caption (org-element-get-property :caption src-block))
 	 (label (org-element-get-property :name src-block))
 	 (custom-env (and lang