accessing
belongsToSegment: segmentBodersCollection

	segmentBodersCollection allButLast keysAndValuesDo: [ :i :elem | 
		(elem < self created and: [ self created <= (segmentBodersCollection at: i + 1) ]) 
			ifTrue: [ ^ i ] 
	].
	^ false