[Pharo-dev] what is demote?

demoteToRPackageNamed: aString | newRPackage | self unregister. newRPackage := self class organizer packageNamed: aString ifAbsent: [ (self class named: aString) register ]. newRPackage importPackage: self. newRPackage classes do: [ :each | SystemAnnouncer uniqueInstance classRepackaged: each from: self to: newRPackage ]. of course no comment because everything is obvious in Pharo, isn't?