--- a/core/MetacelloPackageSpecResolutionError.st	Tue Sep 18 13:11:39 2012 +0000
+++ b/core/MetacelloPackageSpecResolutionError.st	Tue Sep 18 18:24:44 2012 +0000
@@ -8,6 +8,53 @@
 !
 
 
+!MetacelloPackageSpecResolutionError methodsFor:'accessing'!
+
+description
+    "Return a textual description of the exception."
+
+    ^ 'Could not resolve: ' , packageSpec name , ' [' , packageSpec file , ']' , ' in' , self repositoryString
+        ,
+            (repositoryError == nil
+                ifTrue: [ '' ]
+                ifFalse: [ 
+                    "report repository error to user here, since failure here is likely to be due to earlier repository error"
+                    ' ERROR: ' , repositoryError description printString ])
+!
+
+packageSpec
+	^ packageSpec
+!
+
+packageSpec: anObject
+	packageSpec := anObject
+!
+
+repositories
+	^ repositories
+!
+
+repositories: anObject
+	repositories := anObject
+!
+
+repositoryError
+	^ repositoryError
+!
+
+repositoryError: anObject
+	repositoryError := anObject
+! !
+
+!MetacelloPackageSpecResolutionError methodsFor:'private'!
+
+repositoryString
+    | repositoryString |
+    repositoryString := ''.
+    self repositories do: [ :repo | repositoryString := repositoryString , ' ' , repo description ].
+    ^ repositoryString
+! !
+
 !MetacelloPackageSpecResolutionError class methodsFor:'documentation'!
 
 version_SVN