tags-search broken

In XEmacs 21.0 "Finnish Landrace" [Lucid] (i386-pc-win32) of Mon Aug 24 1998 on GLEBLAND2 configured using `configure UNKNOWN' Please describe exactly what actions triggered the bug and the precise symptoms of the bug: tags-search is broken. Other tag-related functions seem to work. Here is a trace: Signaling: (wrong-type-argument integerp include) forward-char(include) (while (not (eobp)) (forward-line 1) (end-of-line) (skip-chars-backward "^,\n") (setq prev (point) size (read ...)) (goto-char prev) (push (expand-file-name ... default-directory) files) (forward-line 1) (forward-char size)) ) (let (files prev size) (goto-char (point-min)) (while (not ...) (forward-line 1) (end-of-line) (skip-chars-backward "^,\n") (setq prev ... size ...) (goto-char prev) (push ... files) (forward-line 1) (forward-char size)) (setq tag-table-files (nreverse files))) ) (if tag-table-files nil (let (files prev size) (goto-char ...) (while ... ... ... ... ... ... ... ... ...) (setq tag-table-files ...))) ) (unless tag-table-files (let (files prev size) (goto-char ...) (while ... ... ... ... ... ... ... ... ...) (setq tag-table-files ...))) ) (save-current-buffer (set-buffer (get-tag-table-buffer tag-table)) (unless tag-table-files (let ... ... ... ...)) tag-table-files) ) (with-current-buffer (get-tag-table-buffer tag-table) (unless tag-table-files (let ... ... ... ...)) tag-table-files) ) tag-table-files("e:\\src\\TAGS") mapcar(tag-table-files ("e:\\src\\TAGS")) (apply (function nconc) (mapcar (function tag-table-files) (buffer-tag-table-list))) ) buffer-tag-table-files() (setq next-file-list (buffer-tag-table-files)) ) (cond ((not initialize)) ((eq initialize t) (setq next-file-list ...)) (t (setq next-file-list ...))) ) next-file(t t) (setq new (next-file first-time tags-search-nuke-uninteresting-buffers)) ) (while (or first-time (save-restriction ... ...)) (setq new (next-file first-time tags-search-nuke-uninteresting-buffers)) (if (or messaged ...) (lmessage ... "Scanning file %s..." ...)) (setq first-time nil) (goto-char (point-min))) ) (while more-files-p (while (or first-time ...) (setq new ...) (if ... ...) (setq first-time nil) (goto-char ...)) (if (and new tags-search-nuke-uninteresting-buffers) (let ... ... ... ... ...)) (switch-to-buffer (current-buffer)) (setq more-files-p (eval tags-loop-operate))) ) (let ((messaged nil) (more-files-p t) new) (while more-files-p (while ... ... ... ... ...) (if ... ...) (switch-to-buffer ...) (setq more-files-p ...)) (and messaged (null tags-loop-operate) (message "Scanning file %s...found" buffer-file-name))) ) tags-loop-continue(t) (if (and (equal regexp "") (eq ... ...) (null tags-loop-operate)) (tags-loop-continue nil) (setq tags-loop-scan (backquote ...) tags-loop-operate nil) (tags-loop-continue (or file-list-form t))) ) tags-search("m_bSampleRI") call-interactively(tags-search) command-execute(tags-search t) execute-extended-command(nil) call-interactively(execute-extended-command) recursive-edit() byte-code("..." [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char ?\* 0 exit "Return value: " debugger-value prin1 ?\n ?\ error "Signaling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3) debug(error (undefined-keystroke-sequence [#<keypress-event control-C> #<keypress-event control-V>])) Recent keystrokes: M-x t a g s TAB s e TAB RET C-y RET M-BS M-BS RET n misc-user t a g s - s e a r c h SPC b r o k e n RET misc-user C-n C-n C-n C-n C-v M-< C-c C-v C-x k RET q BS C-x k RET C-x o C-x k RET C-x C-o M-x t a g s TAB s e TAB up RET b BS m _ b S a m p l e R i BS I RET misc-user M-x C-g C-x o M-x up RET up RET C-x o misc-user Recent messages (most recent first): Entering debugger... Quit Wrong type argument: integerp, include Entering debugger... Loading debug...done Loading debug... Loading cus-edit...done Loading customization dependencies...done Loading customization dependencies... Loading disp-table...done