diff --git a/t/messageBox.t b/t/messageBox.t
index d761ea9..d97032d 100644
--- a/t/messageBox.t
+++ b/t/messageBox.t
@@ -19,10 +19,13 @@ my $top = MainWindow->new(-title => 'MessageBox Test');
 $top->after(1000, 
         sub{
                 if( $top->windowingsystem eq 'x11' ){
-                        ok(1); 
-                        exit(); # No using $top->destroy here, because we get grab error messages on X11
-                                #  But if we use this on windows, we get crashes.
-
+                        # No using $top->destroy here, because we get grab error messages on X11
+                        my $msgbox = $top->interp->widget(
+                                '.__tk__messagebox',  # implementation detail; see msgbox.tcl
+                                'Tcl::pTk::Toplevel',
+                        ); printf "# %s\n", ref($msgbox);
+                        $msgbox->focus;
+                        $msgbox->eventGenerate('<Escape>');
                 }
                 else{
                         $top->destroy(); # This works without errors on windows