X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/c57c15aa26e8392aac42533be3ca608b19396849..f8d4760af59b280fd8468c5e0b51c419b1e6c533:/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 @@ (defun create-test ()
    :child (create-layout 600 600)))
 
 (clg-init)
-(create-test)
+(within-main-loop (create-test))