List syntax of characters in Text Mode

[Henry Lieberman <Henry at OZ>]

In Symbolics 3600 System 242.356, Hardcopy 20.10, FEP 22, on Lisp Machine Jim Morrison:

I have in my Zwei init file ...

(DEFUN EXTEND-LIST-SYNTAX ()
       ;; Change the syntax table to understand [], {} as lists.
       (ASET LIST-OPEN *LIST-SYNTAX-TABLE* #/[)
       (ASET LIST-CLOSE *LIST-SYNTAX-TABLE* #/])
       (ASET LIST-OPEN *LIST-SYNTAX-TABLE* #/{)
       (ASET LIST-CLOSE *LIST-SYNTAX-TABLE* #/}))

This works fine in 5.2, but in Release 6 it only seems to affect Lisp mode
and not Text mode. I would like the list syntax for these characters to 
be effective all the time.