Extension { #name : #FileReference }

{ #category : #'*Grafoscopio-Utils' }
FileReference >> basenameWithoutChecksum [
	^ (self basenameWithoutExtension splitOn: '--') first
]