--- a/ProjectDefinition.st	Fri Oct 29 19:00:02 2010 +0200
+++ b/ProjectDefinition.st	Sat Oct 30 14:44:01 2010 +0200
@@ -105,8 +105,10 @@
                     definitionClassForPackage:'mc:',aMonicelloPackagename createIfAbsent:true projectType:GUIApplicationType.
 
                 "/ if the squeak-stuff is loaded, use it.
-                squeakPackageInfo := PackageInfo allSubclasses 
+                PackageInfo notNil ifTrue:[
+                    squeakPackageInfo := PackageInfo allSubclasses 
                                             detect:[:pi | pi new packageName = aMonicelloPackagename] ifNone:nil.
+                ].
 
                 squeakPackageInfo notNil ifTrue:[
                     dfn classNames:(squeakPackageInfo new classes collect:[:each | each name]).
@@ -120,6 +122,8 @@
      self definitionClassForMonticelloPackage:'foobar'
      self definitionClassForMonticelloPackage:'foobar' createIfAbsent:true
     "
+
+    "Modified: / 30-10-2010 / 00:26:07 / cg"
 !
 
 definitionClassForPackage:aPackageID
@@ -5428,11 +5432,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.321 2010-10-11 10:13:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.322 2010-10-30 12:44:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.321 2010-10-11 10:13:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.322 2010-10-30 12:44:01 cg Exp $'
 ! !
 
 ProjectDefinition initialize!