Display table extra slot crashes Emacs

[Johan Bockgård]

In GNU Emacs 21.2.1 (sparc-sun-solaris2.8, X toolkit)
 of 2002-09-24 on nob.dd.chalmers.se
configured using `configure --x-includes=/opt/pd/include/
--x-libraries=/opt/pd/lib --prefix=/rec/emacs-21.2/'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: iso_8859_1
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Trying to use `C-x 3' in `emacs -nw' after evaluating the following
code makes emacs crash (Fatal error (11).Segmentation fault):

(set-display-table-slot
 standard-display-table
 'vertical-border
 (let* ((face 'isearch)
        (face-offset (lsh (face-id face) 19)))
   (+ face-offset ?|)))

If I use `bold' instead of `isearch' it doesn't crash, *if* I do M-x
list-faces-display before `C-x 3'...

-- 
Johan Bockgård