Status: Fixed Owner: stephane.ducasse Labels: Milestone-1.2 New issue 3344 by stephane.ducasse: No brainer fix for hasBindingThatBeginWith: http://code.google.com/p/pharo/issues/detail?id=3344 SystemDictionary>>hasBindingThatBeginsWith: aString "Use the cached class and non-class names for better performance." | name searchBlock | searchBlock := [ :element | (element beginsWith: aString) ifTrue: [ 0 ] ifFalse: [ aString < element ifTrue: [ -1 ] ifFalse: [ 1 ] ] ]. name := self classNames findBinary: searchBlock + ifNone: [ nil ]. - ifNone: nil. name ifNotNil: [ ^true ]. name := self nonClassNames findBinary: searchBlock + ifNone: [ nil ]. - ifNone: nil. ^name notNil!