'From Cuis 2.4 of 17 June 2010 [latest update: #509] on 30 July 2010 at 10:02:56 am'!

!String methodsFor: 'converting' stamp: 'jmv 7/30/2010 10:01'!
sansPeriodSuffix
	"Return a copy of the receiver up to, but not including, the first period.  If the receiver's *first* character is a period, then just return the entire receiver. "

	| likely |
	likely _ self copyUpTo: $..
	^ likely size = 0
		ifTrue:	[self]
		ifFalse:	[likely]! !

