diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el
index 258d863c7..2aea4ff59 100644
--- a/lisp/org-exp-blocks.el
+++ b/lisp/org-exp-blocks.el
@@ -175,7 +175,7 @@ specified in BLOCKS which default to the value of
 	(while (re-search-forward
 		"^\\([ \t]*\\)#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)[\r\n][ \t]*#\\+end_\\S-+.*" nil t)
           (setq indentation (length (match-string 1)))
-	  (setq type (intern (match-string 2)))
+	  (setq type (intern (downcase (match-string 2))))
 	  (setq headers (save-match-data (org-split-string (match-string 3) "[ \t]+")))
 	  (setq body (match-string 4))
 	  (setq preserve-indent (or org-src-preserve-indentation (member "-i" headers)))