Hello,<br><br>I ran in to the following problem. <br><br><span style="font-family: courier new,monospace;">GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600) of 2009-07-30 on SOFT-MJASON</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">Computing completion candidates...</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Org-mode version 6.28e</span><br>

<br>On pressing &lt;a&gt; (Agenda for ...) in the *Agenda Commands* buffer Emacs throws up the following error:<br><br><span style="font-family: courier new,monospace;">Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p t)</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  -(2 t)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)) (- sd (+ ... d)))</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  (if (or (null org-agenda-start-on-weekday) (&lt; org-agenda-ndays 7)) sd (let* (... ... ...) (- sd ...)))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos end-pos todayp nd wd clocktable-start clocktable-end) (setq org-agenda-redo-command (list ... ... start-day ndays)) (setq ndays (or ndays org-agenda-ndays) nd ndays) (while (&gt; ndays 1) (push ... day-numbers) (setq ndays ...)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ ...)) (org-prepare-agenda &quot;Day/Week&quot;) (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-include-all-loc) include-all) (org-set-local (quote org-agenda-span) (org-agenda-ndays-to-span nd)) (when (and ... ...) (setq files thefiles rtnall nil) (while ... ...) (when rtnall ... ... ...)) (unless org-agenda-compact-blocks (let* ... ... ...) (add-text-properties s ... ...)) (while (setq d ...) (setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles rtnall nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (when (and org-agenda-clockreport-mode clocktable-start) (let ... ... ... ... ... ... ...)) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (unless (and ... ...) (goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (quote ...)) (org-finalize-agenda) (setq buffer-read-only t) (message &quot;&quot;))</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  org-agenda-list(nil)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  call-interactively(org-agenda-list)</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  (cond ((setq entry ...) (if ... ... ...)) ((equal keys &quot;C&quot;) (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable ...)) ((equal keys &quot;a&quot;) (call-interactively ...)) ((equal keys &quot;s&quot;) (call-interactively ...)) ((equal keys &quot;t&quot;) (call-interactively ...)) ((equal keys &quot;T&quot;) (org-call-with-arg ... ...)) ((equal keys &quot;m&quot;) (call-interactively ...)) ((equal keys &quot;M&quot;) (org-call-with-arg ... ...)) ((equal keys &quot;e&quot;) (call-interactively ...)) ((equal keys &quot;L&quot;) (unless ... ...) (unless restriction ... ...)) ((equal keys &quot;#&quot;) (call-interactively ...)) ((equal keys &quot;/&quot;) (call-interactively ...)) ((equal keys &quot;!&quot;) (customize-variable ...)) (t (error &quot;Invalid agenda key&quot;)))</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-agenda-overriding-restriction (put ... ... nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys ... restriction ...)) (when (and ... restriction) (put ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...)))</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  (catch (quote exit) (let* (... ... ... ... ... entry key type match lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  org-agenda(nil)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  call-interactively(org-agenda nil nil)</span><br>

<br>Please confirm that this is a bug and advice on what to do...<br><br>Regards,<br style="font-family: courier new,monospace;"><br><br><blockquote style="margin: 1.5em 0pt;"><div style="margin: 30px 50px 50px 20px; font-family: tahoma,Arial,Helvetica,sans-serif; font-size: 0.9em;">


<a href="http://www.meduniwien.ac.at/zph/en"><img style="border: 0px none ; float: left; padding-right: 6px;" src="http://www.meduniwien.ac.at/homepage/fileadmin/HP-Relaunch/img/logo-en.gif" alt="Medical University of Vienna"></a>
<div style="padding: 0px 0px 0px 200px;"><b>Otto Pichlhoefer, MD</b> </div>
<div style="padding: 0px 0px 0px 200px; font-size: 0.9em;">Medical University of Vienna, Center for Public Health<br>
Department of General Practice and Family Medicine<br>
Währinger Straße 13a<br>
A-1090 Wien, Austria<br>
Tel.   +43 (1) 4277-65960<br>
Fax.  +43 (1) 25 33033 4532<br>
Mobil +43 (664) 80016-34611<br>
Email: <a href="mailto:otto.pichlhoefer@meduniwien.ac.at">otto.pichlhoefer@meduniwien.ac.at</a><br>
</div></div></blockquote>