--- a/MethodFinder.st Wed Feb 05 18:51:48 2014 +0100
+++ b/MethodFinder.st Wed Feb 05 18:51:54 2014 +0100
@@ -1320,9 +1320,9 @@
self error: 'bad assn'].
(sub value isKindOf: Class) ifTrue: [
self error: 'class in assn'].
- sub value class == Symbol ifTrue: [sub value codePoint = 204 '$Ì' ifTrue: [
+ sub value class == Symbol ifTrue: [sub value codePoint = 204 '$' ifTrue: [
self error: 'Write into char']].
- sub value == $Ì ifTrue: [
+ sub value == $ ifTrue: [
self error: 'Write into char']
"].
sub class == Array ifTrue: [
@@ -1637,10 +1637,10 @@
!MethodFinder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.36 2013-09-28 12:54:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.37 2014-02-05 17:51:54 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.36 2013-09-28 12:54:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.37 2014-02-05 17:51:54 cg Exp $'
! !