--- a/core/extensions.st	Mon Sep 17 21:41:57 2012 +0000
+++ b/core/extensions.st	Tue Sep 18 13:10:10 2012 +0000
@@ -1,11 +1,5 @@
 "{ Package: 'stx:goodies/metacello/core' }"!
 
-!Block methodsFor:'*metacello-core-scripting'!
-
-execute: projectSpecBlock against: aScriptExecutor
-    aScriptExecutor executeBlock: self do: projectSpecBlock
-! !
-
 !Block methodsFor:'*metacello-core'!
 
 setAuthorInMetacelloConfig: aMetacelloConfig
@@ -15,12 +9,6 @@
 
 !Block methodsFor:'*metacello-core'!
 
-setBaseline: aString withInMetacelloConfig: aMetacelloConfig
-    aMetacelloConfig setBaseline: aString withBlock: self
-! !
-
-!Block methodsFor:'*metacello-core'!
-
 setBlessingInMetacelloConfig: aMetacelloConfig
 
 	aMetacelloConfig setBlessingWithBlock: self
@@ -28,12 +16,6 @@
 
 !Block methodsFor:'*metacello-core'!
 
-setConfiguration: aString withInMetacelloConfig: aMetacelloConfig
-    aMetacelloConfig setConfiguration: aString withBlock: self
-! !
-
-!Block methodsFor:'*metacello-core'!
-
 setDescriptionInMetacelloConfig: aMetacelloConfig
 
 	aMetacelloConfig setDescriptionWithBlock: self
@@ -64,13 +46,19 @@
 
 addToMetacelloPackages: aMetacelloPackagesSpec
 
-        self do: [:each | each addToMetacelloPackages: aMetacelloPackagesSpec ]
+	self do: [:each | each addToMetacelloPackages: aMetacelloPackagesSpec ]
 ! !
 
-!Collection methodsFor:'*metacello-core-scripting'!
+!Collection methodsFor:'*metacello-core'!
 
-execute: projectSpecBlock against: aScriptExecutor
-    aScriptExecutor executeCollection: self do: projectSpecBlock
+asMetacelloAttributeList
+    ^ self
+! !
+
+!Collection methodsFor:'*metacello-core'!
+
+asMetacelloAttributePath
+    ^ MetacelloMethodSectionPath withAll: self
 ! !
 
 !Collection methodsFor:'*metacello-core'!
@@ -89,6 +77,18 @@
 
 !Collection methodsFor:'*metacello-core'!
 
+setForDo: aBlock withInMetacelloConfig: aMetacelloConstructore
+    aMetacelloConstructore setFor: self do: aBlock
+! !
+
+!Collection methodsFor:'*metacello-core'!
+
+setForVersion: aString withInMetacelloConfig: aMetacelloConstructore
+    aMetacelloConstructore setFor: self version: aString
+! !
+
+!Collection methodsFor:'*metacello-core'!
+
 setIncludesInMetacelloPackage: aMetacelloPackageSpec
 
 	aMetacelloPackageSpec setIncludes: self asArray.
@@ -117,26 +117,6 @@
 
 !Integer methodsFor:'*metacello-core'!
 
-metacelloSemanticIntegerLessThanSelf: anInteger
-    ^ anInteger < self
-! !
-
-!Integer methodsFor:'*metacello-core'!
-
-metacelloSemanticStringLessThanSelf: aString
-    "string version components are always '<' integer component"
-
-    ^ true
-! !
-
-!Integer methodsFor:'*metacello-core'!
-
-metacelloSemanticVersionComponentLessThan: aMetacelloVersonComponent
-    ^ aMetacelloVersonComponent metacelloSemanticIntegerLessThanSelf: self
-! !
-
-!Integer methodsFor:'*metacello-core'!
-
 metacelloStringLessThanSelf: aString
 	"string version components are always '<' integer component"
 	
@@ -159,24 +139,6 @@
 
 !Object methodsFor:'*metacello-core'!
 
-metacelloSemanticIntegerLessThanSelf: anInteger
-    ^ self error: 'Invalid Metacello verson component - should be String or Integer.'
-! !
-
-!Object methodsFor:'*metacello-core'!
-
-metacelloSemanticStringLessThanSelf: anInteger
-    ^ self error: 'Invalid Metacello verson component - should be String or Integer.'
-! !
-
-!Object methodsFor:'*metacello-core'!
-
-metacelloSemanticVersionComponentLessThan: aMetacelloVersonComponent
-    ^ self error: 'Invalid Metacello verson component - should be String or Integer.'
-! !
-
-!Object methodsFor:'*metacello-core'!
-
 metacelloStringLessThanSelf: anInteger
 
 	^self error: 'Invalid Metacello verson component - should be String or Integer.'
@@ -207,23 +169,11 @@
 
 !String methodsFor:'*metacello-core'!
 
-asMetacelloSemanticVersionNumber
-    ^ MetacelloSemanticVersionNumber fromString: self
-! !
-
-!String methodsFor:'*metacello-core'!
-
 asMetacelloVersionNumber
 
 	^MetacelloVersionNumber fromString: self
 ! !
 
-!String methodsFor:'*metacello-core-scripting'!
-
-execute: projectSpecBlock against: aScriptExecutor
-    aScriptExecutor executeString: self do: projectSpecBlock
-! !
-
 !String methodsFor:'*metacello-core'!
 
 mergeIntoMetacelloPackages: aMetacelloPackagesSpec
@@ -250,26 +200,6 @@
 
 !String methodsFor:'*metacello-core-version comparison'!
 
-metacelloSemanticIntegerLessThanSelf: anInteger
-    "integer version components are always '>' string component"
-
-    ^ true
-! !
-
-!String methodsFor:'*metacello-core-version comparison'!
-
-metacelloSemanticStringLessThanSelf: aString
-    ^ aString < self
-! !
-
-!String methodsFor:'*metacello-core-version comparison'!
-
-metacelloSemanticVersionComponentLessThan: aMetacelloVersonComponent
-    ^ aMetacelloVersonComponent metacelloSemanticStringLessThanSelf: self
-! !
-
-!String methodsFor:'*metacello-core-version comparison'!
-
 metacelloStringLessThanSelf: aString
 
 	^aString < self
@@ -366,18 +296,6 @@
 
 !String methodsFor:'*metacello-core'!
 
-setPostLoadDoItInMetacelloSpec: aMetacelloSpec
-    self asSymbol setPostLoadDoItInMetacelloSpec: aMetacelloSpec
-! !
-
-!String methodsFor:'*metacello-core'!
-
-setPreLoadDoItInMetacelloSpec: aMetacelloSpec
-    self asSymbol setPreLoadDoItInMetacelloSpec: aMetacelloSpec
-! !
-
-!String methodsFor:'*metacello-core'!
-
 setProject: aString withInMetacelloConfig: aMetacelloConfig
 
 	aMetacelloConfig setProject: aString withString: self
@@ -409,32 +327,46 @@
 
 !Symbol methodsFor:'*metacello-core'!
 
+asMetacelloAttributeList
+    ^ {self}
+! !
+
+!Symbol methodsFor:'*metacello-core'!
+
+asMetacelloAttributePath
+    ^ MetacelloMethodSectionPath with: {self}
+! !
+
+!Symbol methodsFor:'*metacello-core'!
+
+setForDo: aBlock withInMetacelloConfig: aMetacelloConstructore
+    aMetacelloConstructore setFor: {self} do: aBlock
+! !
+
+!Symbol methodsFor:'*metacello-core'!
+
+setForVersion: aString withInMetacelloConfig: aMetacelloConstructore
+    aMetacelloConstructore setFor: {self} version: aString
+! !
+
+!Symbol methodsFor:'*metacello-core'!
+
 setPostLoadDoItInMetacelloSpec: aMetacelloSpec
-    self precedence == 0
-        ifTrue: [ self error: 'Invalid selector' ].
-    aMetacelloSpec
-        setPostLoadDoIt:
-            (aMetacelloSpec project valueHolderSpec
-                value: self;
-                yourself)
+
+	aMetacelloSpec setPostLoadDoIt: 
+		(aMetacelloSpec project valueHolderSpec
+			value: self;
+			yourself)
 ! !
 
 !Symbol methodsFor:'*metacello-core'!
 
 setPreLoadDoItInMetacelloSpec: aMetacelloSpec
-    self precedence == 0
-        ifTrue: [ self error: 'Invalid selector' ].
-    aMetacelloSpec
-        setPreLoadDoIt:
-            (aMetacelloSpec project valueHolderSpec
-                value: self;
-                yourself)
-! !
 
-!Timestamp methodsFor:'*metacello-core'!
-
-setTimestampInMetacelloConfig: aMetacelloConfig
-    aMetacelloConfig setTimestampWithString: self printString
+	aMetacelloSpec setPreLoadDoIt: 
+		(aMetacelloSpec project valueHolderSpec
+			value: self;
+			yourself)
 ! !
 
 !Timestamp methodsFor:'*metacello-core'!
@@ -449,12 +381,6 @@
 
 !UndefinedObject methodsFor:'*metacello-core'!
 
-asMetacelloSemanticVersionNumber
-    ^ MetacelloSemanticVersionNumber fromString: ''
-! !
-
-!UndefinedObject methodsFor:'*metacello-core'!
-
 asMetacelloVersionNumber
 
 	^MetacelloVersionNumber fromString: ''
@@ -462,18 +388,6 @@
 
 !UndefinedObject methodsFor:'*metacello-core'!
 
-metacelloRegistrationHash
-    ^ self hash
-! !
-
-!UndefinedObject methodsFor:'*metacello-core'!
-
-registrationsCompareEqual: aMetacelloProjectSpec
-    ^ self = aMetacelloProjectSpec
-! !
-
-!UndefinedObject methodsFor:'*metacello-core'!
-
 setAuthorInMetacelloVersion: aMetacelloVersionSpec
 
 	aMetacelloVersionSpec setAuthor: self