X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.misc.lisp;h=19c97208dfd4c90eb18647d8ad91498c93464990;hb=6950e782a8e1d7aea44e29cc25ba070d913642b0;hp=1dfa2cb664f6a82b56675352366d2169acf37836;hpb=8db173e3df82074b8ca96d00304c4e63b499f598;p=cl-gtk2.git

diff --git a/gtk/gtk.misc.lisp b/gtk/gtk.misc.lisp
index 1dfa2cb..19c9720 100644
--- a/gtk/gtk.misc.lisp
+++ b/gtk/gtk.misc.lisp
@@ -53,6 +53,6 @@
 (defmacro with-main-loop (&body body)
   `(progn
      ,@body
-     (gtk-main)))
+     (ensure-gtk-main)))
 
 (export 'with-main-loop)
\ No newline at end of file