--- a/SourceCodeManagerUtilities.st	Thu Dec 21 13:59:53 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Dec 21 18:26:48 2000 +0100
@@ -799,9 +799,10 @@
                 containerPackage := Project current package.
             ].
             answer := self confirmWithCancel:(resources 
-                                                string:'The class seems to have no (valid) repository information.\\I assume you want to check it out from: %1/%2.' 
+                                                string:'The class %3 seems to have no (valid) repository information.\\I assume you want to check it out from: %1/%2.' 
                                                 with:containerModule allBold 
-                                                with:containerPackage allBold) withCRs.
+                                                with:containerPackage allBold
+                                                with:aClass name allBold) withCRs.
             answer isNil ifTrue:[^ self "cancelled"].
             answer ifFalse:[
                 rslt := SourceCodeManagerUtilities
@@ -876,7 +877,7 @@
     ].
 
     aStream isNil ifTrue:[
-        self warn:'could not extract source from repository'.
+        self warn:(resources string:'could not extract source of %1 from repository' with:aClass name allBold).
         ^ self
     ].
     aStream class readErrorSignal handle:[:ex |
@@ -1009,9 +1010,11 @@
                      ].
         onlyHere do:[:eachChange |   "remove this change (method not present in rep-version)"
                                      |cClass cSel|
-                                     cClass := eachChange changeClass.
-                                     cSel := eachChange selector.
-                                     cClass removeSelector:cSel.
+                                     eachChange isMethodChange ifTrue:[
+                                         cClass := eachChange changeClass.
+                                         cSel := eachChange selector.
+                                         cClass removeSelector:cSel.
+                                     ]
                     ].
         changed do:[:eachChangeArr | "apply this change (go to rep-version)"
                                      |cHere cRep| 
@@ -1804,5 +1807,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.50 2000-12-19 10:51:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.51 2000-12-21 17:26:48 cg Exp $'
 ! !