'From Squeak3.10beta of 22 July 2007 [latest update: #7137] on 25 September 2007 at 9:11:29 pm'! !WideCharacterSet methodsFor: 'collection ops' stamp: 'nice 9/25/2007 21:01'! remove: aCharacter | val high low lowmap | val := aCharacter asciiValue. high := val bitShift: -16. low := val bitAnd: 16rFFFF. lowmap := map at: high ifAbsent: [^ aCharacter]. self clearBitmap: lowmap at: low. lowmap max = 0 ifTrue: [map removeKey: high]. ^ aCharacter! !