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

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

Name: Monticello-cmm.428
Author: cmm
Time: 5 March 2011, 3:10:00.078 pm
UUID: 1eac32eb-a076-4b5b-a411-864454b7754b
Ancestors: Monticello-cmm.427

- Removed last users of String>>#extractNumber.

=============== Diff against Monticello-cmm.427 ===============

Item was changed:
  ----- Method: MCSMReleaseRepository>>releaseVersion:url: (in category 'as yet unclassified') -----
  releaseVersion: aVersion url: urlString
  	| result |
  	result := HTTPSocket
  		httpPost: self squeakMapUrl, '/packagebyname/', packageName, '/newrelease'
+ 		args: {'version' -> {(aVersion info versionName versionNumber)}.
- 		args: {'version' -> {(aVersion info name copyAfter: $.) extractNumber asString}.
  			   'note' -> {aVersion info message}.
  			   'downloadURL' -> {urlString}}
  		user: user
  		passwd: password.
  	result contents size > 4 ifTrue: [self error: result contents]
  !

Item was changed:
  ----- Method: MCWorkingCopy>>nextVersionName (in category 'private') -----
  nextVersionName
  	| branch oldName |
  	ancestry ancestors isEmpty
+ 		ifTrue:
+ 			[ counter ifNil: [ counter := 0 ].
+ 			branch := package name ]
- 		ifTrue: [counter ifNil: [counter := 0]. branch := package name]
  		ifFalse:
+ 			[ oldName := ancestry ancestors first versionName.
+ 			branch := oldName packageName.
+ 			counter ifNil:
+ 				[ counter := (ancestry ancestors detectMax:
+ 					[ : eachVersionInfo | eachVersionInfo versionName versionNumber ])
+ 					ifNil: [ 0 ]
+ 					ifNotNil:
+ 						[ : highestNumbered | highestNumbered versionName versionNumber ] ] ].
- 			[oldName := ancestry ancestors first name.
- 			oldName last isDigit
- 				ifFalse: [branch := oldName]
- 				ifTrue: [branch := oldName copyUpToLast: $-].
- 			counter ifNil: [
- 				counter := (ancestry ancestors collect: [:each |
- 					each name last isDigit
- 						ifFalse: [0]
- 						ifTrue: [(each name copyAfterLast: $-) extractNumber]]) max]].
- 
  	counter := counter + 1.
+ 	^ branch , '-' , Utilities authorInitials , '.' , counter asString!
- 	^ branch, '-',  Utilities authorInitials, '.', counter asString!

Item was removed:
- ----- Method: String>>extractNumber (in category '*monticello') -----
- extractNumber
- 	^ ('0', self select: [:ea | ea isDigit]) asNumber!