# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1242295299 -7200
# Node ID 36f3cff10f301ea138fded908b1bcb02571f1a09
# Parent  2fa6304fee2b96f998071b1f8c741b5040fdff6d
code cleanup

diff -r 2fa6304fee2b -r 36f3cff10f30 Class.st
--- a/Class.st	Thu May 14 11:39:44 2009 +0200
+++ b/Class.st	Thu May 14 12:01:39 2009 +0200
@@ -2424,24 +2424,14 @@
 
     |encoder any16Bit|
 
-    any16Bit :=
-        self methodDictionary
-            contains:[:m |
-                |src|
-
-                src := m source ? ''.
-                (src contains:[:ch | ch codePoint > 16rFF])
-            ].
-    any16Bit ifFalse:[
-        any16Bit :=
-            self class methodDictionary
-                contains:[:m |
-                    |src|
-
-                    src := m source ? ''.
-                    (src contains:[:ch | ch codePoint > 16rFF])
-                ].
-    ].
+    any16Bit := self instAndClassMethods 
+                    contains:[:m |
+                        |src|
+
+                        src := m source ? ''.
+                        (src contains:[:ch | ch codePoint > 16rFF])
+                    ].
+
     any16Bit ifTrue:[
         encoder := CharacterEncoder encoderForUTF8.
     ].
@@ -4896,5 +4886,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.539 2009-02-13 14:14:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.540 2009-05-14 10:01:39 cg Exp $'
 ! !