--- a/HTMLUtilities.st	Wed Dec 12 23:55:08 2012 +0100
+++ b/HTMLUtilities.st	Thu Dec 13 00:11:30 2012 +0100
@@ -387,14 +387,14 @@
     "/ Notice, that these two methods came into existance due to historic reasons
     "/ and were developed independent of each other, but later moved to this common place.
 
-    |resultStream orgs repls|
+    |resultStream|
 
 "/    orgs  := #( $&      $<     $>     ).
 "/    repls := #( '&amp;' '&lt;' '&gt;' ).
 
     (aStringOrCharacter isString
-    and:[ (aStringOrCharacter bitsPerCharacter == 8)
-    and:[ (aStringOrCharacter includesAny:'&<>') not ]]) ifTrue:[^ aStringOrCharacter].
+     and:[ (aStringOrCharacter isWideString not)
+     and:[ (aStringOrCharacter includesAny:'&<>') not ]]) ifTrue:[^ aStringOrCharacter].
 
     resultStream := WriteStream on:''.
     aStringOrCharacter asString do:[:eachCharacter |
@@ -506,9 +506,9 @@
 !HTMLUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.15 2011-04-13 21:13:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.16 2012-12-12 23:11:30 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.15 2011-04-13 21:13:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.16 2012-12-12 23:11:30 stefan Exp $'
 ! !