--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/core/MetacelloErrorInProjectConstructionNotification.st	Mon Sep 10 20:55:47 2012 +0000
@@ -0,0 +1,51 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+Notification subclass:#MetacelloErrorInProjectConstructionNotification
+	instanceVariableNames:'versionString exception'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Metacello-Core-Exceptions-Notifications'
+!
+
+
+!MetacelloErrorInProjectConstructionNotification class methodsFor:'instance creation'!
+
+versionString: aString exception: anException
+    ^ self new
+        versionString: aString;
+        exception: anException;
+        signal
+! !
+
+!MetacelloErrorInProjectConstructionNotification methodsFor:'accessing'!
+
+exception
+	^ exception
+!
+
+exception: anObject
+	exception := anObject
+!
+
+versionString
+	^ versionString
+!
+
+versionString: anObject
+	versionString := anObject
+! !
+
+!MetacelloErrorInProjectConstructionNotification methodsFor:'exception description'!
+
+defaultAction
+    "Answer false if you want the version recorded in the errorMap.
+	Answer true if you want to go ahead and throw the error"
+
+    ^ false
+! !
+
+!MetacelloErrorInProjectConstructionNotification class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !