Chris Muller uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-cmm.53.mcz

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

Name: Services-Base-cmm.53
Author: cmm
Time: 26 July 2014, 7:23:02.617 pm
UUID: 1bd35a3c-6ac0-4aed-b3c7-96ceddbea595
Ancestors: Services-Base-eem.52

None of our menu entries are capitalized, stop capitalizing service menu entries.

=============== Diff against Services-Base-eem.52 ===============

Item was changed:
  ----- Method: ServiceAction>>menuLabelNumbered: (in category 'accessing') -----
+ menuLabelNumbered: index 
+ 	| shorterLabel shortCut serviceNumberString |
+ 	shorterLabel := self text.
+ 	shorterLabel size > 50 ifTrue: [ shorterLabel := (shorterLabel first: 47) , '...' ].
+ 	shortCut := self shortcut.
+ 	shortCut := (shortCut isNil or: [ shortCut isEmpty ])
+ 		ifTrue: [ String empty ]
+ 		ifFalse: [ ' (' , shortCut , ')' ].
+ 	serviceNumberString := index isZero
+ 		ifTrue: [ String empty ]
+ 		ifFalse: [ index asString , '.' ].
+ 	^ serviceNumberString , shorterLabel , shortCut!
- menuLabelNumbered: i
- 	| l sh str |
- 	l := self text.
- 	l size > 50
- 		ifTrue: [l := (l first: 47)
- 						, '...'].
- 	sh := self shortcut.
- 	sh := (sh isNil
- 					or: [sh isEmpty])
- 				ifTrue: ['']
- 				ifFalse: [' (' , sh , ')'].
- 	str := i isZero ifTrue: [''] ifFalse: [i asString, '. '].
- 	^ str, l capitalized , sh!