--- a/HTMLDocGenerator.st	Tue Jul 01 15:27:20 2003 +0200
+++ b/HTMLDocGenerator.st	Wed Jul 09 16:37:17 2003 +0200
@@ -2115,11 +2115,14 @@
 !
 
 generateClassDocReferenceFor:className text:text
-    |href|
+    |href serviceLinkName|
 
     self generatingForSTXBrowser ifFalse:[
+        httpRequestOrNil notNil ifTrue:[
+            serviceLinkName := httpRequestOrNil serviceLinkName.    
+        ].
         href := self
-                    anchorFor:('/ClassDoc.classDocOf.', className ) 
+                    anchorFor:('/', serviceLinkName, '/classDocOf,', className ) 
                     info:('Show documentation of ' , className ) 
                     text:text 
                     name:nil
@@ -2137,18 +2140,21 @@
 !
 
 generateClassDocReferenceFor:className text:text autoloading:autoloadedClass
-    |href|
+    |href serviceLinkName|
 
     self generatingForSTXBrowser ifFalse:[
+        httpRequestOrNil notNil ifTrue:[
+            serviceLinkName := httpRequestOrNil serviceLinkName.    
+        ].
         href := self
-                    anchorFor:('/ClassDoc.classDocOf.', className ) 
+                    anchorFor:(serviceLinkName, '/classDocOf,', className ) 
                     info:('Show documentation of ' , className ) 
                     text:text 
                     name:nil
     ] ifTrue:[
         href := self 
                     anchorForHTMLAction:
-                        (autoloadedClass , ' autoload. ', self class name , ' htmlDocOf:' , className )
+                        (autoloadedClass , ' autoload,', self class name , ' htmlDocOf:' , className )
                     info:
                         ('Show documentation of ' , className )
                     text:
@@ -2345,5 +2351,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.56 2003-07-01 13:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.57 2003-07-09 14:37:17 penk Exp $'
 ! !