X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=leveleditor.lisp;fp=leveleditor.lisp;h=bf2a9f74d1c01a14541fc74ec9efa613584a5da1;hp=61b38c87a23f28e4a7f85ce8473fed670880ce59;hb=14d2adfb7390a616ed7a9a26bfd406d7d37d6774;hpb=4eb8dfde7fce141fe05cb3c6275b22ab8d83e86d

diff --git a/leveleditor.lisp b/leveleditor.lisp
index 61b38c8..bf2a9f7 100644
--- a/leveleditor.lisp
+++ b/leveleditor.lisp
@@ -205,7 +205,8 @@ form (x y object arg1 arg2 ...)."
 							   "Symbolname: \"" (symbol-name (car sym)) "\"~%"
 							   "First argument: \"" (cadr sym) "\"~%"
 							   "Second argument: \"" (caddr sym) "\"")))
-			      (ltk:do-msg "There doesnt seem to be anything here."))))
+			      (ltk:do-msg "There doesnt seem to be anything here."))
+			  (return-from react)))
 		       ((eql current-chosen-object 'uxul-world::anchor)
 			(cond
 			  ((string= (ltk:text argument1-entry) "")