X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/f86d1eb7db9bb09e2e0d76b1121405e3ee9ab37f..7d6c9b981633cd3105600a75c4abd53a8450ee88:/examples/testdnd.lisp

diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index 1d7c816..ff6702c 100644
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -144,4 +144,4 @@
    :child (create-layout 600 600)))
 
 (clg-init)
-(create-test)
+(within-main-loop (create-test))