:input-model on the Mac

Hi all. I'm working with this code from the CAPI Reference Manual

(defun draw-character (self x y character) 
      (gp:draw-character self character x y)) 

(capi:contain (make-instance 'capi:output-pane 
                  :title "Press keys in the pane..." 
                  :input-model  '((:character draw-character))) 
                  :best-width 200 :best-height 200) 


I can run this, and I get my beautiful container. The strange thing is
is that characters only appear if I happen to hold Control while entering
them. I'm using LispWorks 4.3.7 on MacOS X 10.2.8

The same code works on Windows without the need for the control key.

-- 
=====================
Joshua Taylor
tayloj@rpi.edu