diff --git a/tools/clog-builder-project-tree.lisp b/tools/clog-builder-project-tree.lisp
index e25631a..4b63005 100644
--- a/tools/clog-builder-project-tree.lisp
+++ b/tools/clog-builder-project-tree.lisp
@@ -79,6 +79,7 @@
                 (input-dialog obj "Run form:"
                               (lambda (result)
                                 (when result
+                                  (setf entry-point result)
                                   (setf clog:*clog-debug*
                                         (lambda (event data)
                                           (with-clog-debugger (panel :standard-output (stdout app))