Another dialog box bug

If I eval (yes-or-no-p-dialog-box "???") And then use the window manager to kill the dialog box (for example, via Alt-F4), XEmacs crashes like this: (gdb) where #0 0x402cd111 in __kill () #1 0x402ccd66 in raise (sig=6) at ../sysdeps/posix/raise.c:27 #2 0x402ce447 in abort () at ../sysdeps/generic/abort.c:88 #3 0x823f37f in wm_delete_window (shell=0x89a9c10, closure=0xbfffdb20, call_data=0x0) at /xemacs/ws/dialog-box/lwlib/lwlib-Xaw.c:605 #4 0x40123e8d in HandleActions () #5 0x40124342 in HandleSimpleState () #6 0x40124851 in _XtTranslateEvent () #7 0x401019f7 in XtDispatchEventToWidget () #8 0x40102444 in _XtDefaultDispatcher () #9 0x40102873 in XtDispatchEvent () #10 0x4010db8f in XtAppProcessEvent () #11 0x820f3f1 in emacs_Xt_next_event (emacs_event=0x8999550) at /xemacs/ws/dialog-box/src/event-Xt.c:2567 #12 0x812130d in event_stream_next_event (event=0x8999550) at /xemacs/ws/dialog-box/src/event-stream.c:508 #13 0x8123b50 in next_event_internal (target_event={...}, allow_queued=1) at /xemacs/ws/dialog-box/src/event-stream.c:1967 #14 0x81240fa in Fnext_event (event={...}, prompt={...}) at /xemacs/ws/dialog-box/src/event-stream.c:2181 #15 0x8124624 in Fnext_command_event (event={...}, prompt={...}) at /xemacs/ws/dialog-box/src/event-stream.c:2336 #16 0x80ccf5b in Ffuncall (nargs=2, args=0xbfffdd94) at /xemacs/ws/dialog-box/src/eval.c:3218 #17 0x809695c in execute_optimized_program (program=0xbfffded0 "À\t!\021Â\t!«2ÃÄÅ\t!\"\210Å\t!\211\036\006Ça«\bÈÉÊ\"\210ª\031\016\006Ëa«\bÈÉÌ\"\210ª\f\016\006Ís«\006ÎÏÌ\"\210)Ð\t!¬ÂÑ \210ÃÒ!\210ª¹\200\224e\b\214", stack_depth=5, constants_data=0x851df98) at /xemacs/ws/dialog-box/src/bytecode.c:747 #18 0x809b9c3 in Fbyte_code (instructions={...}, constants={...}, stack_depth={...}) at /xemacs/ws/dialog-box/src/bytecode.c:2404 #19 0x80cc5c0 in Feval (form={...}) at /xemacs/ws/dialog-box/src/eval.c:3018 #20 0x80c8fa3 in internal_catch (tag={...}, func=0x80cbe88 <Feval>, arg={...}, threw=0x0) at /xemacs/ws/dialog-box/src/eval.c:1310 #21 0x8097f69 in execute_rare_opcode (stack_ptr=0xbfffe2e4, program_ptr=0x89b3f45 "+\207\b", opcode=Bcatch) at /xemacs/ws/dialog-box/src/bytecode.c:1253 #22 0x8096684 in execute_optimized_program (program=0x89b3f30 "À \031Â\216Ã\fÅÆÇȯ\005!\210Ç\036\tÊË\215+\207\b", stack_depth=6, constants_data=0x851dff8) at /xemacs/ws/dialog-box/src/bytecode.c:657 #23 0x80963e2 in funcall_compiled_function (fun={...}, nargs=1, args=0xbfffe490) at /xemacs/ws/dialog-box/src/bytecode.c:516 next-command-event(nil) byte-code("..." [next-command-event event misc-user-event-p message "%s" event-object G25516 yes throw ynp-done t no nil (cancel menu-no-selection-hook) signal quit button-release-event-p beep "please answer the dialog box"] 5) # (catch ynp-done ...) # bind (event) # (unwind-protect ...) # bind (ssf25515 prompt) yes-or-no-p-dialog-box("??") eval((yes-or-no-p-dialog-box "??")) # bind (expr) eval-interactive((yes-or-no-p-dialog-box "??")) # bind (standard-output opoint ignore-quotes eval-last-sexp-arg-internal) eval-last-sexp(t) # bind (standard-output) #<compiled-function nil "...(13)" [standard-output terpri eval-last-sexp t] 2 939997 nil>() call-interactively(eval-print-last-sexp) # (condition-case ... . error) # (catch top-level ...)