diff --git a/src/rstk_ext.rs b/src/rstk_ext.rs
index 1e24b11..65a2e6e 100644
--- a/src/rstk_ext.rs
+++ b/src/rstk_ext.rs
@@ -1,8 +1,12 @@
 use rstk::*;
 
 pub fn init_rstk_ext() {
-    // We create some useful tcl functions
-    rstk::tell_wish("chan configure stdin -encoding utf-8");
+    rstk::tell_wish(
+        r#"
+        chan configure stdin -encoding utf-8
+        wm protocol . WM_DELETE_WINDOW {destroy .};
+    "#,
+    );
 }
 
 #[derive(Clone, Debug, Default)]