Disappearing window

Hi all,

With the following code:

(let ((i (capi:display (make-instance 'capi:interface))))
  (capi:with-dialog-results ()
      (capi:popup-confirmer
       (make-instance 'capi:interface)
       "Press a button." :owner i)
    (capi:with-dialog-results ()
        (capi:prompt-with-message
         "Thank you." :owner i)
      nil)))

I get a rather unpleasant disappearing window. You can see it in
action in a (Quicktime) movie at:

http://www.cs.rpi.edu/~tayloj/bug.mov

I'm not sure if it's a bug, or if I'm doing something that badly.
Workarounds would be appreciated too. I'm not sure if I'll get the
same problem if I manually use the :continuation argument, so that's
my next step.

Thanks in advance!

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

"A lot of good things went down one time,
     back in the goodle days."
               John Hartford