--- a/ProjectDefinition.st	Wed Jun 05 11:27:29 2013 +0100
+++ b/ProjectDefinition.st	Sun Jun 09 00:49:37 2013 +0100
@@ -834,6 +834,8 @@
     "Created: / 14-09-2006 / 14:59:53 / cg"
 ! !
 
+
+
 !ProjectDefinition class methodsFor:'accessing - packaging'!
 
 classNames:aCollectionOfClassNames
@@ -1099,6 +1101,7 @@
         ].
 ! !
 
+
 !ProjectDefinition class methodsFor:'accessing - tests'!
 
 excludedFromTestSuite
@@ -1893,6 +1896,7 @@
     "Modified: / 29-03-2012 / 18:43:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ProjectDefinition class methodsFor:'defaults'!
 
 applicationTypes
@@ -2109,6 +2113,7 @@
     "Modified: / 17-08-2006 / 19:59:26 / cg"
 ! !
 
+
 !ProjectDefinition class methodsFor:'description - classes'!
 
 additionalClassNamesAndAttributes
@@ -4093,7 +4098,7 @@
             classesLoaded := classesPresent select:[:cls | cls isLoaded].
 
             (Class classesSortedByLoadOrder:classesLoaded) do:putDependencyForClassBlock.
-            classesPresent reject:[:cls | cls isLoaded not] thenDo:putDependencyForClassBlock.
+            classesPresent reject:[:cls | cls isLoaded] thenDo:putDependencyForClassBlock.
 
             self namesAndAttributesIn:(self additionalClassNamesAndAttributes)
                 do:[:className :attr |
@@ -6119,6 +6124,20 @@
     "Created: / 17-08-2006 / 00:21:39 / cg"
 !
 
+loadExtensionsForLanguage: lang
+    "load extension methods for given programming language"
+
+    | filename file |
+    filename := 'extensions.' , lang sourceFileSuffix.
+    file := self packageDirectory / filename.
+    file exists ifTrue:[
+        lang fileIn: file.
+    ]
+
+    "Created: / 17-08-2006 / 00:21:39 / cg"
+    "Created: / 25-11-2011 / 18:13:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 loadMandatoryPreRequisitesAsAutoloaded:asAutoloaded
     "load those packages which are required for loading.
      Called after my definition has been loaded, but before the rest of the
@@ -6135,20 +6154,6 @@
     ].
 !
 
-loadExtensionsForLanguage: lang
-    "load extension methods for given programming language"
-
-    | filename file |
-    filename := 'extensions.' , lang sourceFileSuffix.
-    file := self packageDirectory / filename.
-    file exists ifTrue:[
-        lang fileIn: file.
-    ]
-
-    "Created: / 17-08-2006 / 00:21:39 / cg"
-    "Created: / 25-11-2011 / 18:13:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 loadPackages:aListOfPackages asAutoloaded:asAutoloaded
     "load some packages (at least the projectDefinitions and their extensions).
      If asAutoloaded == true, classes will be only installed as autoloaded."