--- a/HTMLDocGenerator.st	Fri Jun 28 08:48:57 2019 +0200
+++ b/HTMLDocGenerator.st	Fri Jun 28 09:02:35 2019 +0200
@@ -969,7 +969,7 @@
     href := (ref copyFrom:(ref indexOf:$:)+1 to:(ref size - 1)) withoutSpaces.
     (href startsWith:'man:') ifTrue:[
         href := (href copyFrom:5) withoutSpaces.
-        outStream nextPutAll:'<a INFO="Show manual page" href="' , self pathToTopOfDocumentation , '/misc/onlyInSTX2.html" action="html:' , self class name , ' manPageFor:''' , href , '''">[<I>' , nm , '</I>]</A>'.
+        outStream nextPutAll:'<a INFO="Show manual page" href="' , self pathToTopOfDocumentation , '/misc/onlyInSTX2.html" action="html:' , self className , ' manPageFor:''' , href , '''">[<I>' , nm , '</I>]</A>'.
         ^ self.
     ].
     (href startsWith:'http:') ifTrue:[
@@ -980,6 +980,8 @@
         href := (href copyFrom:6) withoutSpaces.
     ].                                             
     outStream nextPutAll:'<a href="' , (self pathToDocumentationFile:href) , '">[<I>' , nm , '</I>]</a>'.
+
+    "Modified: / 28-06-2019 / 09:01:50 / Claus Gittinger"
 !
 
 generateRefLines:refLines forClass:aClass
@@ -2935,7 +2937,7 @@
 
 anchorForHTMLDocAction:actionString info:infoMessageOrNil text:text name:anchorName
     ^ self
-        anchorForHTMLAction:(self class name , ' ' , actionString) 
+        anchorForHTMLAction:(self className , ' ' , actionString) 
         info:infoMessageOrNil 
         text:text
         name:anchorName
@@ -2943,6 +2945,8 @@
     "
      self new anchorForHTMLDocAction:'foo' info:'bla' text:'text' name:'baz' 
     "
+
+    "Modified: / 28-06-2019 / 09:01:11 / Claus Gittinger"
 !
 
 anchorForHTMLDocAction:actionString text:text
@@ -3018,7 +3022,7 @@
     |href serviceLinkName action|
 
     self generatingForSTXBrowser ifTrue:[
-        action := self class name , ' htmlDocOf:' , className.
+        action := self className , ' htmlDocOf:' , className.
         autoloadedClass notNil ifTrue:[
             action := autoloadedClass , ' autoload,', action.
         ].
@@ -3042,6 +3046,8 @@
     ].
 
     outStream nextPutAll:href.
+
+    "Modified: / 28-06-2019 / 09:01:15 / Claus Gittinger"
 !
 
 generateH1:headerLine
@@ -3059,7 +3065,7 @@
 generateHTMLHeadWithTitle:title
     |generatedByComment|
 
-    generatedByComment := ('<!!-- generated by ' , self class name , ' ' , thisContext sender selector , ' -->').
+    generatedByComment := ('<!!-- generated by ' , self className , ' ' , thisContext sender selector , ' -->').
 
     generateBodyOnly == true ifFalse:[
         outStream 
@@ -3077,6 +3083,8 @@
         outStream 
             nextPutLine:generatedByComment
     ].
+
+    "Modified: / 28-06-2019 / 09:01:25 / Claus Gittinger"
 !
 
 generateHorizontalLine
@@ -3089,7 +3097,7 @@
     |href serviceLinkName action|
 
     self generatingForSTXBrowser ifTrue:[
-        action := self class name , ' htmlDocOf:' , className.
+        action := self className , ' htmlDocOf:' , className.
         autoloadedClass notNil ifTrue:[
             action := autoloadedClass , ' autoload,', action.
         ].
@@ -3113,6 +3121,8 @@
     ].
 
     outStream nextPutAll:href.
+
+    "Modified: / 28-06-2019 / 09:01:37 / Claus Gittinger"
 !
 
 generatePackageDocReferenceFor:packageID text:text
@@ -3141,7 +3151,7 @@
                         name:nil
         ]
     ] ifTrue:[
-        action := self class name , ' htmlPackageDocOf: #''' , packageID, ''''.
+        action := self className , ' htmlPackageDocOf: #''' , packageID, ''''.
         href := self 
                     anchorForHTMLAction:action
                     info:('Show documentation of package ' , packageID )
@@ -3149,6 +3159,8 @@
     ].
 
     outStream nextPutAll:href.
+
+    "Modified: / 28-06-2019 / 09:01:41 / Claus Gittinger"
 !
 
 generateUpArrowButtonForTop
@@ -3174,13 +3186,15 @@
     
     outStream nextPutAll:'<a class="noprint" href="' , backHRef , '"'.
     backCmd notNil ifTrue:[
-        outStream nextPutAll:' action="html:' , self class name , ' ' , backCmd , '"'.
+        outStream nextPutAll:' action="html:' , self className , ' ' , backCmd , '"'.
     ].
     p := imagePath.
     p isNil ifTrue:[
         p := self pathToTopOfDocumentation , '/icons'
     ].
     outStream nextPutLine:'><img src="' , p , '/DocsUpArrow.gif" alt="[' , (altLabel ? 'back') , ']"></a>'.
+
+    "Modified: / 28-06-2019 / 09:01:59 / Claus Gittinger"
 !
 
 generatingForSTXBrowser