--- a/MethodFinder.st	Thu Aug 21 20:05:33 2014 +0200
+++ b/MethodFinder.st	Thu Sep 11 14:28:10 2014 +0200
@@ -1356,7 +1356,7 @@
         "].
                 sub class == Array ifTrue: [
                         sub do: [:element | 
-                                element class == String ifTrue: [element first codePoint < 32 ifTrue: [
+                                element isString ifTrue: [element first codePoint < 32 ifTrue: [
                                                 self error: 'store into string in data']].
                                 element class == Association ifTrue: [
                                         element value class == Association ifTrue: [
@@ -1385,9 +1385,9 @@
         asSymbol -- want to be able to produce it, but do not want to make every string submitted into a Symbol!!" 
 
         | aSel |
-        answers first class == Symbol ifFalse: [^ self].
-        thisData first first class == String ifFalse: [^ self].
-        aSel _ #asSymbol.
+        answers first isSymbol ifFalse: [^ self].
+        thisData first first isString ifFalse: [^ self].
+        aSel := #asSymbol.   
         (self testPerfect: aSel) ifTrue: [
                 selector add: aSel.
                 expressions add: (String streamContents: [:strm | 
@@ -1666,10 +1666,10 @@
 !MethodFinder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.41 2014-03-04 15:00:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.42 2014-09-11 12:28:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.41 2014-03-04 15:00:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.42 2014-09-11 12:28:10 cg Exp $'
 ! !