--- a/CVSSourceCodeManager.st	Mon May 27 15:19:25 2013 +0200
+++ b/CVSSourceCodeManager.st	Wed May 29 15:46:52 2013 +0200
@@ -4884,7 +4884,18 @@
     |pathes|
 
     pathes := aCollectionOfClasses 
-                collect:[:cls | (self sourceInfoOfClass:cls) at:#pathInRepository].
+                collect:[:cls | 
+                    |info|
+
+                    info := self sourceInfoOfClass:cls.
+                    info isNil ifTrue:[
+                        Dialog warn:('No source info for: %1 (not in repository?)' bindWith:cls name).
+                        nil
+                    ] ifFalse:[
+                        info at:#pathInRepository
+                    ].
+                ]
+                thenSelect:[:path | path notNil].
     self
         setSymbolicName:symbolicName 
         revision:rev 
@@ -5143,11 +5154,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.457 2013-05-27 13:19:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.458 2013-05-29 13:46:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.457 2013-05-27 13:19:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.458 2013-05-29 13:46:52 cg Exp $'
 ! !