--- _html.tcl	2017-08-08 12:52:42.076965300 +0200
+++ _html.tcl	2017-08-08 12:53:08.403267700 +0200
@@ -180,7 +180,7 @@
 }
 
 proc ht_comment {text}   {
-    return "[markup <]! -- [join [split $text \n] "   -- "]\n   --[markup >]"
+    return "[markup <]! -- [htmlEscape [join [split $text \n] "   -- "]]\n   --[markup >]"
 }
 
 # wrap content gi --
