On Dec 31, 2007 6:34 PM, ahefner <ahefner@common-lisp.net> wrote:

- (flet ((run () (run-frame-top-level frame))) + (flet ((run () + (unwind-protect (run-frame-top-level frame) + (disown-frame fm frame)))) (if new-process (values (clim-sys:make-process #'run :name process-name) frame)

In case this bug has propagated into the run-<program> functions of any other apps, it is necessary to call disown-frame yourself if you pass a frame manager to make-application-frame. Since I've also fixed the buffering problem with disable-frame, you won't notice that you failed to, but the unmapped window will linger instead of being destroyed.