Problems sorting buffer tabs alphabetically

Hello, I wrote this function to be used as the value for buffers-tab-sort-function: === (defun sort-buffers-by-name (buffers) "For use as a value of `buffers-tab-sort-function'. Sorts buffers alphabetically by name (case-insensitive)." (sort buffers (lambda (buffer1 buffer2) (string-lessp (downcase (buffer-name buffer1)) (downcase (buffer-name buffer2)))))) === However, when I use it, the buffer tabs act strangely: http://www.nodewarrior.org/chris/xemacs.xwd.gz (Use gunzip(1) and xwud(1x) to view.) Note that I am visiting buffer bar but the tabs show *scratch*. *scratch* is the dominant tab no matter what buffer I visit. Any clues about what is happening? On the bright side, the tabs *are* sorted... -- Chris music is what numbers feel like San Francisco, CA