--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MetacelloScriptImageExecutor.st	Mon Sep 03 11:13:41 2012 +0000
@@ -0,0 +1,28 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+MetacelloScriptExecutor subclass:#MetacelloScriptImageExecutor
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Metacello-Core-Scripts'
+!
+
+
+!MetacelloScriptImageExecutor methodsFor:'execution callback'!
+
+projectSpecSelectBlock
+    ^ [ :projectSpec | 
+    projectSpec
+        ifNil: [ false ]
+        ifNotNil: [ 
+            MetacelloProjectRegistration
+                registrationForProjectSpec: projectSpec
+                ifAbsent: [ false ]
+                ifPresent: [ :existingRegistration :newRegistration | existingRegistration loadedInImage ] ] ]
+! !
+
+!MetacelloScriptImageExecutor class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !