Make a named block for do-window so you can return-from it.
Fix for callbacks under windows from Andrew Lyon.