Hang after agenda export [6.34c]

[manonfire@lavabit.com]

Hello,

this org-mode is fantastic but I experienced a little problem.

When trying to export the agenda with C-x C-w filename, emacs hangs and
causes high cpu load with all file types (txt,html,pdf). No file is
created.
This also happened with 6.33f.

The org-file is very simple, one heading with two scheduled items.
A backtrace after exporting to 'agenda.txt' and a few seconds later
hitting C-g:


Debugger entered--Lisp error: (quit)
  org-agenda-get-some-entry-text(#<marker at 16 in test.org> 5 "    > ")
  org-agenda-add-entry-text()
  run-hooks(org-agenda-before-write-hook)
  (progn (insert bs) (org-agenda-remove-marked-text (quote org-filtered))
(while (setq beg ...) (delete-region beg ...)) (run-hooks (quote
org-agenda-before-write-hook)) (cond (... ...) (... ... ... ... ... ...)
(... ... ... ...) (... ... ... ... ...) (... ... ...) (t ...)))
  (unwind-protect (progn (insert bs) (org-agenda-remove-marked-text ...)
(while ... ...) (run-hooks ...) (cond ... ... ... ... ... ...)) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ...
... ... ... ...) (and ... ...)))
  (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ...
...) (and ... ...)))
  (let ((temp-buffer ...)) (with-current-buffer temp-buffer
(unwind-protect ... ...)))
  (with-temp-buffer (insert bs) (org-agenda-remove-marked-text (quote
org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks
(quote org-agenda-before-write-hook)) (cond (... ...) (... ... ... ...
... ...) (... ... ... ...) (... ... ... ... ...) (... ... ...) (t ...)))
  (let ((bs ...) beg) (org-agenda-unmark-filtered-text) (with-temp-buffer
(insert bs) (org-agenda-remove-marked-text ...) (while ... ...)
(run-hooks ...) (cond ... ... ... ... ... ...)))
  (save-window-excursion (org-agenda-mark-filtered-text) (let (... beg)
(org-agenda-unmark-filtered-text) (with-temp-buffer ... ... ... ...
...)))
  (save-excursion (save-window-excursion (org-agenda-mark-filtered-text)
(let ... ... ...)))
  (let ((ps-number-of-columns 2) (ps-landscape-mode t)
(org-agenda-add-entry-text-maxlines 5)) (save-excursion
(save-window-excursion ... ...)) #<buffer *Org Agenda*>)
  eval((let ((ps-number-of-columns 2) (ps-landscape-mode t)
(org-agenda-add-entry-text-maxlines 5)) (save-excursion
(save-window-excursion ... ...)) #<buffer *Org Agenda*>))
  org-let(((ps-number-of-columns 2) (ps-landscape-mode t)
(org-agenda-add-entry-text-maxlines 5)) (save-excursion
(save-window-excursion (org-agenda-mark-filtered-text) (let ... ...
...))) #<buffer *Org Agenda*>)
  org-write-agenda("~/orgfiles/agenda.txt" nil)
  call-interactively(org-write-agenda nil nil)