# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1575465641 -3600
# Node ID e143e651704f31ea491f0d6ae465964ce0acab75
# Parent  f7e5c76413069b144e84373020854cfba5849d66
#BUGFIX by cg
class: HTMLDocGenerator
changed: #generateClassDocReferenceFor:text:autoloading:

diff -r f7e5c7641306 -r e143e651704f HTMLDocGenerator.st
--- 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.