diff --git a/doc/clog-manual.html b/doc/clog-manual.html
index 7d0ea2b..6de23ef 100644
--- a/doc/clog-manual.html
+++ b/doc/clog-manual.html
@@ -6513,19 +6513,25 @@ clog-user:<em>body</em> to last window openned to /repl.</p></li>
 <p><a id='x-28CLOG-3ALOAD-WORLD-20FUNCTION-29'></a></p>
 
 <ul>
-<li><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALOAD-WORLD-20FUNCTION-29" >LOAD-WORLD</a></span></span> <span class="locative-args"></span></span></li>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALOAD-WORLD-20FUNCTION-29" >LOAD-WORLD</a></span></span> <span class="locative-args"></span></span></p>
+
+<p>Load source files for creating documentation</p></li>
 </ul>
 
 <p><a id='x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29'></a></p>
 
 <ul>
-<li><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29" >MAKE-MARK-DOWN</a></span></span> <span class="locative-args"></span></span></li>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-MARK-DOWN-20FUNCTION-29" >MAKE-MARK-DOWN</a></span></span> <span class="locative-args"></span></span></p>
+
+<p>Create manual in Mark Down format</p></li>
 </ul>
 
 <p><a id='x-28CLOG-3AMAKE-HTML-20FUNCTION-29'></a></p>
 
 <ul>
-<li><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-HTML-20FUNCTION-29" >MAKE-HTML</a></span></span> <span class="locative-args"></span></span></li>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AMAKE-HTML-20FUNCTION-29" >MAKE-HTML</a></span></span> <span class="locative-args"></span></span></p>
+
+<p>Create manual in <code>HTML</code></p></li>
 </ul>
 
 <p><a id='x-28CLOG-3AMAKE-WORLD-20FUNCTION-29'></a></p>
diff --git a/source/clog-docs.lisp b/source/clog-docs.lisp
index d650677..2ffede4 100644
--- a/source/clog-docs.lisp
+++ b/source/clog-docs.lisp
@@ -16,20 +16,26 @@
 ;;;;;;;;;;;;;;;;
 
 (defun load-world ()
+  "Load source files for creating documentation"
   (load "source/clog.lisp")
-  (load "source/clog-docs.lisp")
+  (load "source/clog-utilities.lisp")
   (load "source/clog-base.lisp")
   (load "source/clog-element.lisp")
   (load "source/clog-element-common.lisp")
+  (load "source/clog-style.lisp")
   (load "source/clog-canvas.lisp")
   (load "source/clog-form.lisp")
+  (load "source/clog-multimedia.lisp")  
   (load "source/clog-window.lisp")
-  (load "source/clog-navigator.lisp")
   (load "source/clog-document.lisp")
   (load "source/clog-location.lisp")
-  (load "source/clog-system.lisp")
-  (load "source/clog-utilities.lisp")
+  (load "source/clog-navigator.lisp")
   (load "source/clog-body.lisp")
+  (load "source/clog-system.lisp")
+  (load "source/clog-panel.lisp")
+  (load "source/clog-gui.lisp")
+  (load "source/clog-web.lisp")    
+  (load "source/clog-docs.lisp")
   (load "source/clog-helpers.lisp"))
 
 ;;;;;;;;;;;;;;;;;;;;
@@ -37,6 +43,7 @@
 ;;;;;;;;;;;;;;;;;;;;
 
 (defun make-mark-down ()
+  "Create manual in Mark Down format"
   (load-world)
   (describe clog:@CLOG-MANUAL))
 
@@ -45,6 +52,7 @@
 ;;;;;;;;;;;;;;;
 
 (defun make-html ()
+  "Create manual in HTML"
   (load-world)
   (mgl-pax:update-asdf-system-html-docs clog:@CLOG-MANUAL :clog))
 
diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index dada214..3d0311f 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -1257,6 +1257,7 @@ is placed in DOM at top of html body instead of bottom of html body."
     (set-on-click
      (attach-as-child obj (format nil "~A-close" html-id))
      (lambda (obj)
+       (declare (ignore obj))
        (destroy win)))
     (when time-out
       (sleep time-out)