--- a/HTMLDocGenerator.st	Mon Oct 05 16:45:57 2015 +0200
+++ b/HTMLDocGenerator.st	Thu Oct 15 11:56:21 2015 +0200
@@ -2934,7 +2934,10 @@
 !
 
 withSpecialHTMLCharactersEscaped:aStringOrCharacter
-    ^ HTMLUtilities escapeCharacterEntities:aStringOrCharacter
+    |string|
+    
+    string := aStringOrCharacter isString ifTrue:[aStringOrCharacter] ifFalse:[aStringOrCharacter asString].
+    ^ HTMLUtilities escapeCharacterEntities:string
 
     "
      self new withSpecialHTMLCharactersEscaped:'foo>' 
@@ -2988,10 +2991,10 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.100 2015-02-19 12:17:35 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.100 2015-02-19 12:17:35 cg Exp $'
+    ^ '$Header$'
 ! !