Index: frames.lisp =================================================================== RCS file: /home/depot/McCLIM/frames.lisp,v retrieving revision 1.62 diff -r1.62 frames.lisp 820c820,829 < (format pstream "~A: " name) --- > (princ " " pstream) > (with-text-style (pstream (make-device-font-text-style > (port pstream) > "cursor")) > (princ (code-char > (cond ((string-equal name :l) #x4a) > ((string-equal name :m) #x52) > ((string-equal name :r) #x64) > (t #x64))) > pstream) )