MCPackage.st
changeset 920 3d0f65b1ab71
parent 887 edf6e4a20fc1
child 1006 0d3b402c4d6c
child 1007 a5944b6b32df
--- a/MCPackage.st	Sat Mar 01 23:43:05 2014 +0100
+++ b/MCPackage.st	Thu Mar 27 21:44:08 2014 +0100
@@ -115,7 +115,10 @@
 !MCPackage methodsFor:'testing'!
 
 isStXPackage
-    ^(ProjectDefinition definitionClassForPackage: name) notNil.
+    |c|
+
+    ^(c := ProjectDefinition definitionClassForPackage: name) notNil
+      and:[c isProjectDefinition].
 
     "Created: / 29-05-2013 / 01:46:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -123,14 +126,14 @@
 !MCPackage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.16 2013-06-22 22:22:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.16 2013-06-22 22:22:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCPackage.st,v 1.16 2013-06-22 22:22:00 vrany Exp $'
+    ^ '$Id: MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $'
 ! !