--- a/Class.st	Sun Jul 12 06:35:39 2015 +0200
+++ b/Class.st	Mon Jul 20 17:01:03 2015 +0100
@@ -2895,7 +2895,7 @@
                             |src|
 
                             src := m source.
-                            src notNil and:[src isWideString and:[src contains:[:c | c codePoint > 16rFF ] ] ]
+                            src notNil and:[src containsNon7BitAscii]
                         ]]].
 
     any16Bit ifTrue:[