I am trying to have my reatable recognize extra named chars like #\Home, #\End, ... but there's something I don't get... In the following code: ---------------------- (include "~~/src/lib/header.scm") (define extra-named-chars '(("Nul" . #\x00) ("Home" . #\x01) ("Enter" . #\x03) ("End" . #\x04))) (define (add-extra-named-chars! readtable) (macro-readtable-named-char-table-set! readtable (append (macro-readtable-named-char-table readtable) extra-named-chars))) (define (make-my-readtable) (let ((readtable (##readtable-copy ##main-readtable))) (add-extra-named-chars! readtable) readtable)) (define (tr) (add-extra-named-chars! ##main-readtable)) (define (tr2) (set! ##main-readtable (make-my-readtable))) ---------------------- If I do (tr) then everything works perfectly, but using tr2 doesn't work, I get Invalid '#\' name: "End" Any clue? Thanks, Guillaume Cartier