--- a/HTMLDocGenerator.st	Tue Sep 29 22:07:11 2009 +0200
+++ b/HTMLDocGenerator.st	Fri Oct 02 10:44:10 2009 +0200
@@ -267,7 +267,7 @@
 languageSpecificDocDirectory
     |lang|
 
-    lang := Smalltalk language.
+    lang := UserPreferences current language.
 
     "XXX Kludge for now, map ISO-639 abbreviations to dir names.
      Should rename the directories"
@@ -2695,5 +2695,9 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.89 2008-12-03 19:41:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.90 2009-10-02 08:44:10 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.90 2009-10-02 08:44:10 cg Exp $'
 ! !