[plt-scheme] escape continuations and mred callback

Hi there,

Shouldn't this:

  (require (lib "class.ss")
           (lib "mred.ss" "mred"))

  (define (go)
    (let/ec return
      (let ((f (new dialog% (label "Hello"))))
        (new button% (parent f)
             (label "Me, Me!")
           (callback (lambda _
                       (send f show #f)
                       (return "Escaping"))))
        (send f show #t)
        "Did not Escape")))

  (go)



Evaluate to "Escaping" when the user clicks the "Me,Me!" button?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20061006/61c7a696/attachment.html>