diff --git a/source/clog-body.lisp b/source/clog-body.lisp
index 42a999e..0f9b65a 100644
--- a/source/clog-body.lisp
+++ b/source/clog-body.lisp
@@ -52,7 +52,7 @@ user close of connection / browser."))
 (defmethod run ((obj clog-body))
   (loop
     (if (validp obj)
-        (sleep 10)
+        (sleep 1)
         (return))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp
index 89f8410..f02ff9a 100644
--- a/tools/clog-builder-projects.lisp
+++ b/tools/clog-builder-projects.lisp
@@ -51,42 +51,43 @@
           (pprint n s))))))
 
 (defun projects-rerender (panel)
-  (let* ((app (connection-data-item panel "builder-app-data"))
-         (sel (text-value (project-list panel)))
-         (sys (asdf:find-system (format nil "~A/tools" sel))))
-    (dolist (n (asdf:module-components sys))
-      (let ((name      (format nil "~A" (asdf:component-relative-pathname n)))
-            (file-name (asdf:component-pathname n)))
-        (when (and (> (length name) 5)
-                   (equal (subseq name (- (length name) 5)) ".clog"))
-          (let* ((win              (create-gui-window panel :top 40 :left 225
-                                                            :width 645 :height 430))
-                 (box              (create-panel-box-layout (window-content win)
-                                                            :left-width 0 :right-width 0
-                                                            :top-height 33 :bottom-height 0))
-                 (content          (center-panel box))
-                 (panel-id         (html-id content))
-                 (render-file-name (format nil "~A~A.lisp"
-                                           (directory-namestring file-name)
-                                           (pathname-name file-name))))
-            (setf-next-id content 1)
-            (setf (overflow content) :auto)
-            (init-control-list app panel-id)
-            (clrhash (get-control-list app panel-id))
-            ;; preset in case of empty clog file
-            (setf (attribute content "data-clog-name") "empty-clog-file")
-            (setf (attribute content "data-clog-type") "clog-data")
-            (setf (attribute content "data-in-package") "clog-user")
-            (setf (attribute content "data-custom-slots") "")
-            (setf (inner-html content)
-                  (or (read-file file-name)
-                      ""))
-            (on-populate-loaded-window content :win win)
-            (setf (window-title win) (attribute content "data-clog-name"))
-            (write-file (render-clog-code content (bottom-panel box))
-                        render-file-name)
-            (window-close win)
-            (format t "~A -> ~A~%" file-name render-file-name)))))))
+  (let ((app (connection-data-item panel "builder-app-data"))
+        (sel (text-value (project-list panel))))
+    (unless (equal sel "None")
+      (let ((sys (asdf:find-system (format nil "~A/tools" sel))))
+        (dolist (n (asdf:module-components sys))
+          (let ((name      (format nil "~A" (asdf:component-relative-pathname n)))
+                (file-name (asdf:component-pathname n)))
+            (when (and (> (length name) 5)
+                       (equal (subseq name (- (length name) 5)) ".clog"))
+              (let* ((win              (create-gui-window panel :top 40 :left 225
+                                                                :width 645 :height 430))
+                     (box              (create-panel-box-layout (window-content win)
+                                                                :left-width 0 :right-width 0
+                                                                :top-height 33 :bottom-height 0))
+                     (content          (center-panel box))
+                     (panel-id         (html-id content))
+                     (render-file-name (format nil "~A~A.lisp"
+                                               (directory-namestring file-name)
+                                               (pathname-name file-name))))
+                (setf-next-id content 1)
+                (setf (overflow content) :auto)
+                (init-control-list app panel-id)
+                (clrhash (get-control-list app panel-id))
+                ;; preset in case of empty clog file
+                (setf (attribute content "data-clog-name") "empty-clog-file")
+                (setf (attribute content "data-clog-type") "clog-data")
+                (setf (attribute content "data-in-package") "clog-user")
+                (setf (attribute content "data-custom-slots") "")
+                (setf (inner-html content)
+                      (or (read-file file-name)
+                          ""))
+                (on-populate-loaded-window content :win win)
+                (setf (window-title win) (attribute content "data-clog-name"))
+                (write-file (render-clog-code content (bottom-panel box))
+                            render-file-name)
+                (window-close win)
+                (format t "~A -> ~A~%" file-name render-file-name)))))))))
 
 (defun projects-populate (panel)
   (let ((app (connection-data-item panel "builder-app-data"))
diff --git a/tools/projects.clog b/tools/projects.clog
index 9b743a6..4d7dc30 100644
--- a/tools/projects.clog
+++ b/tools/projects.clog
@@ -1,11 +1,13 @@
-<data id="I3871045686" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="45" data-clog-title="projects"></data><label for="undefined" data-clog-type="label" data-clog-for="projects-list" data-clog-name="projects-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;">Current Project</label><select data-clog-type="dropdown" data-clog-name="project-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;" data-on-create="(projects-setup panel)" data-on-change="(projects-populate panel)"></select><button data-clog-type="button" data-clog-name="edit-asd" style="box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;" data-on-click="(let ((sel (text-value (project-list panel))))
+<data id="I3871066023" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="45" data-clog-title="projects"></data><label for="undefined" data-clog-type="label" data-clog-for="projects-list" data-clog-name="projects-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;">Current Project</label><select data-clog-type="dropdown" data-clog-name="project-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;" data-on-create="(projects-setup panel)" data-on-change="(projects-populate panel)"></select><button data-clog-type="button" data-clog-name="edit-asd" style="box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;" data-on-click="(let ((sel (text-value (project-list panel))))
   (on-open-file panel :open-file (asdf:system-source-file
                                    (asdf:find-system sel))))" title="Manualy projects .asd file">Edit .asd</button><label for="CLOGB386871257741" data-clog-type="label" data-clog-for="entry-point" data-clog-name="entry-point-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 69px;">Entry Point - package:function</label><input type="TEXT" value="" data-clog-type="input" data-clog-name="entry-point" style="box-sizing: content-box; position: absolute; left: 5px; top: 94px; width: 381px; height: 22.5px;" data-on-change="(projects-entry-point-change panel)"><button data-clog-type="button" data-clog-name="run-button" style="box-sizing: content-box; position: absolute; left: 400px; top: 92px; width: 90px; height: 22.5px;" data-on-click="(projects-run panel)">Run</button><button data-clog-type="button" data-clog-name="new-project-button" style="box-sizing: content-box; position: absolute; left: 520px; top: 8px; width: 100px; height: 22px;" data-on-click="(on-new-app-template panel)" title="Create new project from template">New</button><button data-clog-type="button" data-clog-name="unload-project-button" style="box-sizing: content-box; position: absolute; left: 520px; top: 43px; width: 100px; height: 22px; bottom: 309.041px;" data-on-click="(let ((sel (text-value (project-list panel))))
-  (asdf:clear-system sel)
-  (setf (text-value (project-list panel)) &quot;None&quot;)
-  (projects-populate panel))" title="ASDF unload project from Lisp image">Unload</button><button data-clog-type="button" data-clog-name="reload-project-button" style="box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;" data-on-click="(let ((sel (text-value (project-list panel))))
-  (asdf:clear-system sel)
-  (projects-populate panel))" title="ASDF reload project in to Lisp image">Reload</button><button data-clog-type="button" data-clog-name="rerender-button" style="box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;" tabindex="0" title="Rerender all clog files to Lisp" data-on-click="(projects-rerender panel)">Rerender</button><div data-clog-type="div" data-clog-name="file-group" style="box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;"><label for="CLOGB3868393710" data-clog-type="label" data-clog-for="runtime-list" data-clog-name="runtime-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 65px;">Runtime System</label><label for="CLOGB3868452429" data-clog-type="label" data-clog-for="runtime-list" data-clog-name="dbl-click1" style="box-sizing: content-box; position: absolute; left: 5px; top: 85px;">(double click to launch)</label><select data-clog-type="listbox" size="4" data-clog-name="runtime-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;" data-on-double-click="(open-projects-component target (text-value (project-list panel)) target)"></select><button data-clog-type="button" data-clog-name="runtime-add-lisp" style="box-sizing: content-box; position: absolute; left: 5px; top: 320px;" data-on-click="(let ((sys (text-value (project-list panel))))
+  (unless (equal sel &quot;None&quot;)
+    (asdf:clear-system sel)
+    (setf (text-value (project-list panel)) &quot;None&quot;)
+    (projects-populate panel)))" title="ASDF unload project from Lisp image">Unload</button><button data-clog-type="button" data-clog-name="reload-project-button" style="box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;" data-on-click="(let ((sel (text-value (project-list panel))))
+  (unless (equal sel &quot;None&quot;)
+    (asdf:clear-system sel)
+    (projects-populate panel)))" title="ASDF reload project in to Lisp image">Reload</button><button data-clog-type="button" data-clog-name="rerender-button" style="box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;" tabindex="0" title="Rerender all clog files to Lisp" data-on-click="(projects-rerender panel)">Rerender</button><div data-clog-type="div" data-clog-name="file-group" style="box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;"><label for="CLOGB3868393710" data-clog-type="label" data-clog-for="runtime-list" data-clog-name="runtime-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 65px;">Runtime System</label><label for="CLOGB3868452429" data-clog-type="label" data-clog-for="runtime-list" data-clog-name="dbl-click1" style="box-sizing: content-box; position: absolute; left: 5px; top: 85px;">(double click to launch)</label><select data-clog-type="listbox" size="4" data-clog-name="runtime-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;" data-on-double-click="(open-projects-component target (text-value (project-list panel)) target)"></select><button data-clog-type="button" data-clog-name="runtime-add-lisp" style="box-sizing: content-box; position: absolute; left: 5px; top: 320px;" data-on-click="(let ((sys (text-value (project-list panel))))
   (projects-add-lisp panel sys))">Add .lisp</button><button data-clog-type="button" data-clog-name="runtime-delete" style="box-sizing: content-box; position: absolute; left: 93px; top: 320px; width: 65px; height: 22px;" data-on-click="(let ((sys (text-value (project-list panel)))
       (file (select-text (runtime-list panel))))
   (unless (equal file &quot;&quot;)
diff --git a/tools/projects.lisp b/tools/projects.lisp
index 6e0fdae..5afc465 100644
--- a/tools/projects.lisp
+++ b/tools/projects.lisp
@@ -34,105 +34,105 @@
   (let ((panel
          (change-class
           (clog:create-div clog-obj :content
-                           "<label for=\"undefined\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;\" id=\"CLOGB3871045200\" data-clog-name=\"projects-label\">Current Project</label><select style=\"box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;\" id=\"CLOGB3871045201\" data-clog-name=\"project-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;\" title=\"Manualy projects .asd file\" id=\"CLOGB3871045202\" data-clog-name=\"edit-asd\">Edit .asd</button><label for=\"CLOGB386871257741\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 69px;\" id=\"CLOGB3871045203\" data-clog-name=\"entry-point-label\">Entry Point - package:function</label><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 94px; width: 381px; height: 22.5px;\" id=\"CLOGB3871045204\" data-clog-name=\"entry-point\"><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 92px; width: 90px; height: 22.5px;\" id=\"CLOGB3871045205\" data-clog-name=\"run-button\">Run</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 8px; width: 100px; height: 22px;\" title=\"Create new project from template\" id=\"CLOGB3871045206\" data-clog-name=\"new-project-button\">New</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 43px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF unload project from Lisp image\" id=\"CLOGB3871045207\" data-clog-name=\"unload-project-button\">Unload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF reload project in to Lisp image\" id=\"CLOGB3871045208\" data-clog-name=\"reload-project-button\">Reload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;\" tabindex=\"0\" title=\"Rerender all clog files to Lisp\" id=\"CLOGB3871045209\" data-clog-name=\"rerender-button\">Rerender</button><div style=\"box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;\" id=\"CLOGB3871045210\" data-clog-name=\"file-group\"><label for=\"CLOGB3868393710\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 65px;\" id=\"CLOGB3871045211\" data-clog-name=\"runtime-label\">Runtime System</label><label for=\"CLOGB3868452429\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 85px;\" id=\"CLOGB3871045212\" data-clog-name=\"dbl-click1\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;\" id=\"CLOGB3871045213\" data-clog-name=\"runtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 320px;\" id=\"CLOGB3871045214\" data-clog-name=\"runtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 93px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3871045215\" data-clog-name=\"runtime-delete\">Remove</button><button id=\"CLOGB387104523944\" style=\"box-sizing: content-box; position: absolute; left: 180px; top: 320px; width: 65px;\" data-clog-name=\"runtime-dir\">View Dir</button><label for=\"CLOGB3868619266\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 365px;\" id=\"CLOGB3871045216\" data-clog-name=\"runtime-deps-label\">Runtime Dependecies</label><label for=\"CLOGB3868452430\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 85px;\" id=\"CLOGB3871045221\" data-clog-name=\"dbl-click2\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 395px; width: 260px; height: 75px;\" id=\"CLOGB3871045217\" data-clog-name=\"runtime-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 480px; width: 65px;\" id=\"CLOGB3871045218\" data-clog-name=\"runtime-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 95px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045219\" data-clog-name=\"runtime-del-dep\">Remove</button><label for=\"CLOGB3868393704\" style=\"box-sizing: content-box; position: absolute; left: 290.007px; top: 65px;\" id=\"CLOGB3871045220\" data-clog-name=\"designtime-label\">Design Time System (/tools)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 115px; width: 265px; height: 195.545px;\" id=\"CLOGB3871045222\" data-clog-name=\"designtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 320px;\" id=\"CLOGB3871045223\" data-clog-name=\"designtime-add-clog\">Add .clog</button><button style=\"box-sizing: content-box; position: absolute; left: 386px; top: 320px;\" id=\"CLOGB3871045224\" data-clog-name=\"designtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 478px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3871045225\" data-clog-name=\"designtime-delete\">Remove</button><label for=\"CLOGB3868619268\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 365px;\" id=\"CLOGB3871045226\" data-clog-name=\"design-deps-label\">Design Dependecies</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 395px; width: 263.358px; height: 75px;\" id=\"CLOGB3871045227\" data-clog-name=\"design-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045228\" data-clog-name=\"design-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 380px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045229\" data-clog-name=\"design-del-dep\">Remove</button><button style=\"box-sizing: content-box; position: absolute; left: 470px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045230\" data-clog-name=\"design-plugin\">Plugin</button></div>"
+                           "<label for=\"undefined\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;\" id=\"CLOGB3871065905\" data-clog-name=\"projects-label\">Current Project</label><select style=\"box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;\" id=\"CLOGB3871065906\" data-clog-name=\"project-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;\" title=\"Manualy projects .asd file\" id=\"CLOGB3871065907\" data-clog-name=\"edit-asd\">Edit .asd</button><label for=\"CLOGB386871257741\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 69px;\" id=\"CLOGB3871065908\" data-clog-name=\"entry-point-label\">Entry Point - package:function</label><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 94px; width: 381px; height: 22.5px;\" id=\"CLOGB3871065909\" data-clog-name=\"entry-point\"><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 92px; width: 90px; height: 22.5px;\" id=\"CLOGB3871065910\" data-clog-name=\"run-button\">Run</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 8px; width: 100px; height: 22px;\" title=\"Create new project from template\" id=\"CLOGB3871065911\" data-clog-name=\"new-project-button\">New</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 43px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF unload project from Lisp image\" id=\"CLOGB3871065912\" data-clog-name=\"unload-project-button\">Unload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF reload project in to Lisp image\" id=\"CLOGB3871065913\" data-clog-name=\"reload-project-button\">Reload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;\" tabindex=\"0\" title=\"Rerender all clog files to Lisp\" id=\"CLOGB3871065914\" data-clog-name=\"rerender-button\">Rerender</button><div style=\"box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;\" id=\"CLOGB3871065915\" data-clog-name=\"file-group\"><label for=\"CLOGB3868393710\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 65px;\" id=\"CLOGB3871065916\" data-clog-name=\"runtime-label\">Runtime System</label><label for=\"CLOGB3868452429\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 85px;\" id=\"CLOGB3871065917\" data-clog-name=\"dbl-click1\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;\" id=\"CLOGB3871065918\" data-clog-name=\"runtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 320px;\" id=\"CLOGB3871065919\" data-clog-name=\"runtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 93px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3871065920\" data-clog-name=\"runtime-delete\">Remove</button><button style=\"box-sizing: content-box; position: absolute; left: 180px; top: 320px; width: 65px;\" id=\"CLOGB3871065921\" data-clog-name=\"runtime-dir\">View Dir</button><label for=\"CLOGB3868619266\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 365px;\" id=\"CLOGB3871065922\" data-clog-name=\"runtime-deps-label\">Runtime Dependecies</label><label for=\"CLOGB3868452430\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 85px;\" id=\"CLOGB3871065923\" data-clog-name=\"dbl-click2\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 395px; width: 260px; height: 75px;\" id=\"CLOGB3871065924\" data-clog-name=\"runtime-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 480px; width: 65px;\" id=\"CLOGB3871065925\" data-clog-name=\"runtime-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 95px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871065926\" data-clog-name=\"runtime-del-dep\">Remove</button><label for=\"CLOGB3868393704\" style=\"box-sizing: content-box; position: absolute; left: 290.007px; top: 65px;\" id=\"CLOGB3871065927\" data-clog-name=\"designtime-label\">Design Time System (/tools)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 115px; width: 265px; height: 195.545px;\" id=\"CLOGB3871065928\" data-clog-name=\"designtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 320px;\" id=\"CLOGB3871065929\" data-clog-name=\"designtime-add-clog\">Add .clog</button><button style=\"box-sizing: content-box; position: absolute; left: 386px; top: 320px;\" id=\"CLOGB3871065930\" data-clog-name=\"designtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 478px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3871065931\" data-clog-name=\"designtime-delete\">Remove</button><label for=\"CLOGB3868619268\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 365px;\" id=\"CLOGB3871065932\" data-clog-name=\"design-deps-label\">Design Dependecies</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 395px; width: 263.358px; height: 75px;\" id=\"CLOGB3871065933\" data-clog-name=\"design-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871065934\" data-clog-name=\"design-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 380px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871065935\" data-clog-name=\"design-del-dep\">Remove</button><button style=\"box-sizing: content-box; position: absolute; left: 470px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871065936\" data-clog-name=\"design-plugin\">Plugin</button></div>"
                            :hidden hidden :class class :html-id html-id
                            :auto-place auto-place)
           'projects)))
     (setf (slot-value panel 'design-plugin)
-            (attach-as-child clog-obj "CLOGB3871045230" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065936" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'design-del-dep)
-            (attach-as-child clog-obj "CLOGB3871045229" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065935" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'design-add-dep)
-            (attach-as-child clog-obj "CLOGB3871045228" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065934" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'design-deps)
-            (attach-as-child clog-obj "CLOGB3871045227" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065933" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'design-deps-label)
-            (attach-as-child clog-obj "CLOGB3871045226" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065932" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'designtime-delete)
-            (attach-as-child clog-obj "CLOGB3871045225" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065931" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'designtime-add-lisp)
-            (attach-as-child clog-obj "CLOGB3871045224" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065930" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'designtime-add-clog)
-            (attach-as-child clog-obj "CLOGB3871045223" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065929" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'designtime-list)
-            (attach-as-child clog-obj "CLOGB3871045222" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065928" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'designtime-label)
-            (attach-as-child clog-obj "CLOGB3871045220" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065927" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'runtime-del-dep)
-            (attach-as-child clog-obj "CLOGB3871045219" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065926" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-add-dep)
-            (attach-as-child clog-obj "CLOGB3871045218" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065925" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-deps)
-            (attach-as-child clog-obj "CLOGB3871045217" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065924" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'dbl-click2)
-            (attach-as-child clog-obj "CLOGB3871045221" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065923" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'runtime-deps-label)
-            (attach-as-child clog-obj "CLOGB3871045216" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065922" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'runtime-dir)
-            (attach-as-child clog-obj "CLOGB387104523944" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065921" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-delete)
-            (attach-as-child clog-obj "CLOGB3871045215" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065920" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-add-lisp)
-            (attach-as-child clog-obj "CLOGB3871045214" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065919" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-list)
-            (attach-as-child clog-obj "CLOGB3871045213" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065918" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'dbl-click1)
-            (attach-as-child clog-obj "CLOGB3871045212" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065917" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'runtime-label)
-            (attach-as-child clog-obj "CLOGB3871045211" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065916" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'file-group)
-            (attach-as-child clog-obj "CLOGB3871045210" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065915" :clog-type
              'clog:clog-div :new-id t))
     (setf (slot-value panel 'rerender-button)
-            (attach-as-child clog-obj "CLOGB3871045209" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065914" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'reload-project-button)
-            (attach-as-child clog-obj "CLOGB3871045208" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065913" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'unload-project-button)
-            (attach-as-child clog-obj "CLOGB3871045207" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065912" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'new-project-button)
-            (attach-as-child clog-obj "CLOGB3871045206" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065911" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'run-button)
-            (attach-as-child clog-obj "CLOGB3871045205" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065910" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'entry-point)
-            (attach-as-child clog-obj "CLOGB3871045204" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065909" :clog-type
              'clog:clog-form-element :new-id t))
     (setf (slot-value panel 'entry-point-label)
-            (attach-as-child clog-obj "CLOGB3871045203" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065908" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'edit-asd)
-            (attach-as-child clog-obj "CLOGB3871045202" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065907" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'project-list)
-            (attach-as-child clog-obj "CLOGB3871045201" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065906" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'projects-label)
-            (attach-as-child clog-obj "CLOGB3871045200" :clog-type
+            (attach-as-child clog-obj "CLOGB3871065905" :clog-type
              'clog:clog-label :new-id t))
     (let ((target (projects-label panel)))
       (declare (ignorable target))
@@ -204,15 +204,17 @@
                        (lambda (target)
                          (declare (ignorable target))
                          (let ((sel (text-value (project-list panel))))
-                           (asdf/system-registry:clear-system sel)
-                           (setf (text-value (project-list panel)) "None")
-                           (projects-populate panel))))
+                           (unless (equal sel "None")
+                             (asdf/system-registry:clear-system sel)
+                             (setf (text-value (project-list panel)) "None")
+                             (projects-populate panel)))))
     (clog:set-on-click (reload-project-button panel)
                        (lambda (target)
                          (declare (ignorable target))
                          (let ((sel (text-value (project-list panel))))
-                           (asdf/system-registry:clear-system sel)
-                           (projects-populate panel))))
+                           (unless (equal sel "None")
+                             (asdf/system-registry:clear-system sel)
+                             (projects-populate panel)))))
     (clog:set-on-click (rerender-button panel)
                        (lambda (target)
                          (declare (ignorable target))