SystemOrganization addCategory: #'Refactoring-Pharo-Platform'!

RBPlatform subclass: #RBPharoPlatform
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Refactoring-Pharo-Platform'!

!RBPharoPlatform class methodsFor: 'class initialization' stamp: 'lr 12/29/2011 17:40'!
initialize
	Current := self new! !

!RBPharoPlatform methodsFor: 'accessing' stamp: 'lr 12/29/2011 17:41'!
changeStamp
	^ Author changeStamp! !
RBPharoPlatform initialize!