Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.516.mcz==================== Summary ====================
Name: Monticello-bf.516
Author: bf
Time: 5 July 2012, 5:07:51.433 pm
UUID: 42f8b4e0-b227-46ec-bcfa-a0426a152467
Ancestors: Monticello-bf.515
Fix a problem with very short MCVersionNames (e.g. 'MC1' as used by the test suite)
=============== Diff against Monticello-bf.515 ===============
Item was changed:
----- Method: MCVersionName>>versionName (in category 'accessing') -----
versionName
"Answer my version name as a ByteString, without the file suffix or any ancestor-attributes."
| end |
self isEmpty ifTrue: [^ String empty].
end := self indexOf: $( ifAbsent: [
+ (self size > 4 and: [(self copyFrom: self size - 3 to: self size - 1) = '.mc'])
- ('.mc#' startingAt: 1 match: self startingAt: self size - 3)
ifTrue: [self size - 3]
ifFalse: [self size + 1]].
^self first: end - 1!