--- a/HTMLDocGenerator.st	Wed May 09 20:10:29 2018 +0200
+++ b/HTMLDocGenerator.st	Tue May 15 18:16:27 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
               All Rights Reserved
@@ -767,19 +769,20 @@
 !
 
 generateExampleEnd
-    outStream nextPutLine:'</code></pre>'.
+    outStream nextPutAll:'</code></pre>'.
     self generatingForSTXBrowser ifTrue:[
-        outStream nextPutLine:'</a>'.
+        outStream nextPutAll:'</a>'.
     ].
-    outStream nextPutLine:'</td></tr></table>'.
+    outStream nextPutAll:'</td></tr></table>'.
 !
 
 generateExampleStart
-    outStream nextPutLine:'<p></p><table width="100%" bgcolor="#eedddd"><tr><td>'.
+    "/ outStream nextPutAll:'<p></p>'.
+    outStream nextPutAll:'<table width="100%" bgcolor="#eedddd"><tr><td>'.
     self generatingForSTXBrowser ifTrue:[
         outStream nextPutLine:'<a info="execute the example" type="example" showresult>'.
     ].
-    outStream nextPutLine:'<pre><code>'.
+    outStream nextPutAll:'<pre><code>'.
 !
 
 generateExamples:examples
@@ -2005,7 +2008,8 @@
 
                 exampleCode notEmpty ifTrue:[
                     outStream nextPutLine:'<blockquote>'.
-                    outStream nextPutLine:'usage example(s):<br>'.
+                    outStream nextPutLine:'usage example(s):'.
+                    "/ outStream nextPutLine:'usage example(s):<br>'.
                     self generateExampleStart.
                     exampleCode do:[:eachLine |
                         outStream nextPutLine:eachLine