[Orgmode] Org Babel Bug

[Ian Barton]

I am using Babel to maintein my .emacs file. When I try to publish I am 
getting a Babel error from one of my org files. The offending section of 
the org file seems to be:

#+BEGIN_SRC emacs-shell
  127.0.0.1 mail.wilkesley.org localhost

  # The following lines are desirable for IPv6 capable hosts
  ::1 ip6-localhost ip6-loopback
  fe00::0 ip6-localnet
  ff00::0 ip6-mcastprefix
  ff02::1 ip6-allnodes
  ff02::2 ip6-allrouters
  ff02::3 ip6-allhosts

#+END_SRC

I am using a recent git checkout of org and GNU Emacs 23.1.50.1 
(x86_64-pc-linux-gnu, GTK+ Version 2.18.0).

The backtrace is:

Debugger entered--Lisp error: (error "Unmatched block [bug in 
`org-babel-exp-src-blocks'].")
  signal(error ("Unmatched block [bug in `org-babel-exp-src-blocks']."))
  error("Unmatched block [bug in `org-babel-exp-src-blocks'].")
  (or (and (re-search-backward org-babel-src-block-regexp ... t) (setq 
progress-marker ...) (org-babel-exp-do-export ... ...)) (save-excursion 
(forward-line 0) (and ... ... ...)) (and (re-search-backward 
org-block-regexp ... t) (setq progress-marker ...) (match-string 0)) 
(error "Unmatched block [bug in `org-babel-exp-src-blocks']."))
  (progn (fset (quote cond-progress-marker) (function* ...)) (or (and 
... ... ...) (save-excursion ... ...) (and ... ... ...) (error 
"Unmatched block [bug in `org-babel-exp-src-blocks'].")))
  (unwind-protect (progn (fset ... ...) (or ... ... ... ...)) (if 
--cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) 
(unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
  (letf ((... ...)) (or (and ... ... ...) (save-excursion ... ...) (and 
... ... ...) (error "Unmatched block [bug in 
`org-babel-exp-src-blocks'].")))
  (letf* ((... ...)) (or (and ... ... ...) (save-excursion ... ...) 
(and ... ... ...) (error "Unmatched block [bug in 
`org-babel-exp-src-blocks'].")))
  (flet ((cond-progress-marker nil ...)) (or (and ... ... ...) 
(save-excursion ... ...) (and ... ... ...) (error "Unmatched block [bug 
in `org-babel-exp-src-blocks'].")))
  org-babel-exp-src-blocks(#("127.0.0.1 mail.wilkesley.org 
localhost\n\n# The following lines are desirable for IPv6 capable 
hosts\n::1 ip6-localhost ip6-loopback\nfe00::0 ip6-localnet\nff00::0 
ip6-mcastprefix\nff02::1 ip6-allnodes\nff02::2 ip6-allrouters\nff02::3 
ip6-allhosts\n" 0 240 (fontified nil)) #("emacs-shell" 0 11 (fontified 
nil)))
  apply(org-babel-exp-src-blocks #("127.0.0.1 mail.wilkesley.org 
localhost\n\n# The following lines are desirable for IPv6 capable 
hosts\n::1 ip6-localhost ip6-loopback\nfe00::0 ip6-localnet\nff00::0 
ip6-mcastprefix\nff02::1 ip6-allnodes\nff02::2 ip6-allrouters\nff02::3 
ip6-allhosts\n" 0 240 (fontified nil)) #("emacs-shell" 0 11 (fontified 
nil)))

byte-code("\306\307\211\211\211\211\211\211\211\211#$%&\310\311!\211'\205#