diff --git a/examples/gtk/hello-world.scm b/examples/gtk/hello-world.scm
index 6d1d6a6..bfd6947 100644
--- a/examples/gtk/hello-world.scm
+++ b/examples/gtk/hello-world.scm
@@ -5,5 +5,7 @@
 (gtk-init (command-line-args))
 (define window (gtk-window-new 'gtk-window-toplevel))
 (gtk-window-set-title window "Hello, World!")
+(define callback (lambda args (gtk-main-quit)))
+(g-signal-connect window "destroy" callback)
 (gtk-widget-show-all window)
 (gtk-main)