--- a/TextView.st	Mon Oct 01 14:59:20 2012 +0200
+++ b/TextView.st	Tue Oct 02 16:23:34 2012 +0200
@@ -2314,7 +2314,8 @@
     encoder isNullEncoder ifTrue:[
         (list contains:[:lineOrNil |
                             lineOrNil notNil
-                            and:[lineOrNil string string bitsPerCharacter > 8]
+                            and:[lineOrNil string string bitsPerCharacter > 8
+                            and:[lineOrNil string string asSingleByteStringIfPossible bitsPerCharacter > 8 ]]
                        ]
         ) ifTrue:[
             (Dialog confirm:'The text contains non-8bit characters. Encode as UTF8?') ifFalse:[
@@ -4569,11 +4570,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.340 2012-10-02 14:23:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.340 2012-10-02 14:23:34 cg Exp $'
 ! !
 
 TextView initialize!