--- a/String.st	Wed Feb 04 10:54:28 2004 +0100
+++ b/String.st	Wed Feb 04 10:59:52 2004 +0100
@@ -1161,7 +1161,7 @@
     cls = __qClass(s);
     myCls = __qClass(self);
 
-    if ((cls == String) || (cls == Symbol) || (cls == myCls)) {
+    if ((cls == myCls) || (cls == String) || (cls == Symbol)) {
         cp2 = __stringVal(s);
         l2 = __stringSize(s);
         /*
@@ -1244,6 +1244,17 @@
      'foo' sameAs: 'Foo'
      #[0 0 1 0 0] asString = #[0 0 1 0 0] asString
     "
+    "
+     |tEmpty tCmp|
+
+     tEmpty := Time millisecondsToRun:[
+         1000000 timesRepeat:[]
+     ].
+     tCmp := Time millisecondsToRun:[
+         1000000 timesRepeat:[ '1234567890' = '1234567890' ]
+     ].
+     tCmp - tEmpty   
+    "
 !
 
 > aString
@@ -3192,5 +3203,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.191 2004-02-04 09:54:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.192 2004-02-04 09:59:52 cg Exp $'
 ! !