[O] Error args-out-of-range when using org-babel-tangle with org7.7

[Jonathan Arkell]

Hi Everyone

I am having some problems with using org-babel-tangle. Each time I try to
use it, I get the error '(args-out-of-range "" -1 0)'.  I've simplified
the source code chunk I want to tangle to this:

#+src_name stack-el
#+begin_src emacs-lisp :tangle stack.el
;;; stack.el -- custom elisp for the stack development
#+end_src


I am on org-mode 7.7, on Mac OS 10.6.8, Emacs for Mac Os (23.2.1)

I am sure I am doing something totally wrong and/or silly.  Can someone
help me out?

Thanks!


Here is a full backtrace:

Debugger entered--Lisp error: (args-out-of-range "" -1 0)
  org-babel-parse-src-block-match()
  org-babel-get-src-block-info(light)
  (let* ((start-line ...) (file ...) (info ...) (src-lang ...)) (unless
(string= ... "no") (unless ... ...)))
  (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...)
(beg-lang ...) (end-lang ...) (switches ...) (beg-switches ...)
(end-switches ...) (header-args ...) (beg-header-args ...)
(end-header-args ...) (body ...) (beg-body ...) (end-body ...)) ((lambda
... ...) (replace-regexp-in-string "[   ]" "-" ...)) (let* (... ... ...
...) (unless ... ...)) (goto-char end-block))
  (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char
(match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ...
... ... ...) (... ...) (let* ... ...) (goto-char end-block)))
  (save-window-excursion (when file (find-file file)) (setq to-be-removed
(current-buffer)) (goto-char (point-min)) (while (re-search-forward
org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ... ...)))
  (let* ((file ...) (visited-p ...) (point ...) to-be-removed)
(save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char
...) (while ... ... ...)) (unless visited-p (kill-buffer to-be-removed))
(goto-char point))
  (org-babel-map-src-blocks (buffer-file-name) ((lambda ... ...)
(replace-regexp-in-string "[    ]" "-" ...)) (let* (... ... ... ...) (unless
... ...)))
  (let ((block-counter 1) (current-heading "") blocks)
(org-babel-map-src-blocks (buffer-file-name) (... ...) (let* ... ...))
(setq blocks (mapcar ... blocks)) blocks)
  org-babel-tangle-collect-blocks(nil)
  (mapc (lambda (by-lang) (let* ... ...)) (org-babel-tangle-collect-blocks
lang))
  (let ((block-counter 0) (org-babel-default-header-args ...)
path-collector) (mapc (lambda ... ...) (org-babel-tangle-collect-blocks
lang)) (message "tangled %d code block%s from %s" block-counter (if ... ""
"s") (file-name-nondirectory ...)) (when org-babel-post-tangle-hook (mapc
... path-collector)) path-collector)
  (save-excursion (let (... ... path-collector) (mapc ... ...) (message
"tangled %d code block%s from %s" block-counter ... ...) (when
org-babel-post-tangle-hook ...) path-collector))
  (save-restriction (when only-this-block (unless ... ...) (unless
target-file ...) (narrow-to-region ... ...)) (save-excursion (let ... ...
... ... path-collector)))
  org-babel-tangle(nil)
  call-interactively(org-babel-tangle nil nil)





The information contained in this message is confidential. It is intended to be 
read only by the individual or entity named above or their designee. If the 
reader of this message is not the intended recipient, you are hereby notified 
that any distribution of this message, in any form, is strictly prohibited. If 
you have received this message in error, please immediately notify the sender 
and delete or destroy any copy of this message.