Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.755.mcz

==================== Summary ====================

Name: Collections-eem.755
Author: eem
Time: 25 May 2017, 3:30:29.925042 pm
UUID: b20639f6-1b01-45b5-8311-6abe8fad12c7
Ancestors: Collections-nice.754

Fix withoutTrailingDigits for e.g. 'Lucida Grande 15' withoutTrailingDigits.  Harvested from Terf.

=============== Diff against Collections-nice.754 ===============

Item was changed:
  ----- Method: String>>withoutTrailingDigits (in category 'converting') -----
  withoutTrailingDigits
  	"Answer the portion of the receiver that precedes any trailing series of digits and blanks.  If the receiver consists entirely of digits and blanks, return an empty string"
+ 	| i |
+ 	i := self size.
+ 	[i > 0] whileTrue: [ 
+ 		((self at: i) isDigit or: [ (self at: i) = $ ]) ifFalse: [
+ 			^ self copyFrom: 1 to: i
+ 		].
+ 		i := i - 1.
+ 	].
+ 	^ ''
+ 	
- 	| firstDigit |
- 	firstDigit := (self findFirst: [:m | m isDigit or: [m = $ ]]).
- 	^ firstDigit > 0
- 		ifTrue:
- 			[self copyFrom: 1 to: firstDigit-1]
- 		ifFalse:
- 			[self]
  
  "
  'Whoopie234' withoutTrailingDigits
+ 'Lucida Grande 15' withoutTrailingDigits
  ' 4321 BlastOff!!' withoutLeadingDigits
  'wimpy' withoutLeadingDigits
  '  89Ten ' withoutLeadingDigits
  '78 92' withoutLeadingDigits
  "
  !