Bug in unread-command-events?

[Martin Blais]

Hello!

Is this a bug?

 (progn
   (global-set-key [(control x)(control l)]
                   '(lambda () (interactive)
                      (print (this-command-keys))
                      (print last-input-event)))

   (setq unread-command-events (listify-key-sequence "^X^L")))

Where is the missing ^L in the print output?  
When I invoke the command by hand two characters
are included, but when I push on the list programmatically 
the last one is missing.

Any hint appreciated.
cheers,