diff --git a/src/export-web-static.scm b/src/export-web-static.scm
index d11dfe7..642b156 100644
--- a/src/export-web-static.scm
+++ b/src/export-web-static.scm
@@ -35,10 +35,12 @@
 	 (chicken base)
 	 (chicken format)
 	 (chicken pathname)
+	 (chicken string)
 	 brmember
 	 util-dir
 	 mbase)
 
+ ;; Prints the HTML summary for given member to current-output-port
  (define (print-html-member mr)
    (print "<html>")
    (print "<head>")
@@ -47,15 +49,31 @@
 	  "</title>")
    (print "</head>")
    (print "<body>")
+   (print "<h1>Brmlab member " (brmember-nick mr) "</h1>")
+   (print "<hr>")
+   (print "<dl>")
+   (print "<dt>Nick:</dt><dd>" (brmember-nick mr) "</dd>")
+   (print "<dt>Id:</dt><dd>" (brmember-id mr) "</dd>")
+   (print "</dl>")
+   (print "<hr>")
+   (print "<h2>Member file</h2>")
+   (print "<pre>")
+   (print (string-translate*
+	   (string-intersperse (brmember-source mr) "\n")
+	   '(("<" . "&lt;") (">" . "&gt;") ("\"" . "&quot;"))))
+   (print "</pre>")
+   (print "<hr>")
    (print "</body>")
    (print "</html>"))
 
+ ;; Generates a single member in given directory
  (define (gen-html-member mr dir)
    (let ((fname (format "~A.html" (brmember-id mr))))
      (with-output-to-file (make-pathname dir (format "~A.html" (brmember-nick mr)))
        (lambda ()
 	 (print-html-member mr)))))
 
+ ;; Generates all members in given directory
  (define (gen-html-members mb dir)
    (ensure-directory dir)
    (with-mbase-progress%
