diff --git a/tools/clog-builder-project-tree.lisp b/tools/clog-builder-project-tree.lisp
index 7b810d3..7466277 100644
--- a/tools/clog-builder-project-tree.lisp
+++ b/tools/clog-builder-project-tree.lisp
@@ -91,6 +91,8 @@
                                            "./static-root/"
                                            "./www/")
                                        (format nil "~A" (asdf:system-source-directory (current-project app)))))
+                (when (static-root-display app)
+                  (setf (text-value (static-root-display app)) (format nil "static-root: ~A" *static-root*)))
                 (input-dialog obj "Run form:"
                               (lambda (result)
                                 (when result
diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp
index ea9f079..487efa8 100644
--- a/tools/clog-builder-projects.lisp
+++ b/tools/clog-builder-projects.lisp
@@ -86,6 +86,8 @@
                                  "./static-root/"
                                  "./www/")
                              (format nil "~A" (asdf:system-source-directory (current-project app)))))
+      (when (static-root-display app)
+        (setf (text-value (static-root-display app)) (format nil "static-root: ~A" *static-root*)))
       (alert-toast panel "Static Root Set"
                    *static-root* :color-class "w3-yellow")
       (setf clog:*clog-debug*
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 97e9b7a..3795645 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -33,6 +33,10 @@ clog-builder window.")
      :accessor stdin
      :initform nil
      :documentation "The standard-input for this instance")
+   (static-root-display
+     :accessor static-root-display
+     :initform nil
+     :documentation "Display area for static-root")
    (copy-buf
      :accessor copy-buf
      :initform nil
@@ -389,11 +393,12 @@ clog-builder window.")
     (when safe
       (with-clog-debugger (body :standard-output (stdout app))
                           (when *builder-window-show-static-root-class*
-                            (setf (z-index (create-panel body :positioning :fixed
-                                                         :bottom 0 :right 0
-                                                         :class *builder-window-show-static-root-class*
-                                                         :content (format nil "static-root: ~A" clog:*static-root*)))
-                                  -9999))
+                            (setf (static-root-display app)
+                                  (create-panel body :positioning :fixed
+                                                :bottom 0 :right 0
+                                                :class *builder-window-show-static-root-class*
+                                                :content (format nil "static-root: ~A" *static-root*)))
+                            (setf (z-index (static-root-display app)) -9999))
                           (let* ((menu  (create-gui-menu-bar body))
                                  (icon  (create-gui-menu-icon menu :image-url img-clog-icon
                                                               :on-click  #'on-help-about-builder))