Tools__NewSystemBrowser.st
branchjv
changeset 15680 4a7575c1d55f
parent 15673 9cf3a2a48c79
parent 15679 ff2aa16644d8
child 15687 622cb3155c09
--- a/Tools__NewSystemBrowser.st	Sat Jun 06 06:39:51 2015 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Jun 07 06:39:04 2015 +0200
@@ -32991,7 +32991,9 @@
         |oldProjectDefinition|
 
         oldProjectDefinition := (oldPackagePerClass at:class) asPackageId projectDefinitionClass.
-        oldProjectDefinition excludeClasses:{class} usingCompiler:nil.
+        oldProjectDefinition notNil ifTrue:[
+            oldProjectDefinition excludeClasses:{class} usingCompiler:nil.
+        ].
     ].
 
     newProjectDefinition includeClasses:(classesAlreadyInRepository , classesNotYetInRepository) usingCompiler:nil.   
@@ -62633,11 +62635,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2227 2015-05-31 09:26:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2228 2015-06-06 07:59:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2227 2015-05-31 09:26:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2228 2015-06-06 07:59:29 cg Exp $'
 !
 
 version_HG
@@ -62646,7 +62648,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2227 2015-05-31 09:26:27 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2228 2015-06-06 07:59:29 cg Exp $'
 ! !