--- a/HTMLDocGenerator.st	Wed Dec 04 14:04:28 2019 +0100
+++ b/HTMLDocGenerator.st	Wed Dec 04 14:20:41 2019 +0100
@@ -3015,17 +3015,23 @@
                     info:('Show documentation of ' , className )
                     text:text.
     ] ifFalse:[
-        "/ page is generated for a real http service;
-        "/ generate a link to the services classDocOf page,
+        "/ page is generated for a real http service or to be stored as HTML page;
+        "/ generate a link to the service's classDocOf page,
         "/ Assumes that the server has a classDoc service running.
         httpRequestOrNil notNil ifTrue:[
             serviceLinkName := httpRequestOrNil serviceLinkName.    
+            href := self
+                        anchorFor:(serviceLinkName, '/classDocOf,', (HTMLUtilities escape:className) ) 
+                        info:('Show documentation of ' , className ) 
+                        text:text 
+                        name:nil
+        ] ifFalse:[
+            href := self
+                        anchorFor:((HTMLUtilities escape:className),'.html' ) 
+                        info:('Goto documentation of ' , className ) 
+                        text:text 
+                        name:nil
         ].
-        href := self
-                    anchorFor:(serviceLinkName, '/classDocOf,', (HTMLUtilities escape:className) ) 
-                    info:('Show documentation of ' , className ) 
-                    text:text 
-                    name:nil
     ].
 
     outStream nextPutAll:href.