--- a/ProjectDefinition.st	Mon Nov 27 16:28:02 2006 +0100
+++ b/ProjectDefinition.st	Mon Nov 27 17:19:56 2006 +0100
@@ -2203,9 +2203,8 @@
         isAutoload := eachAttributes includes:#autoload.
 
         "no need to (re-)load an existing class, but install if should be loaded"
-        ((cls := Smalltalk loadedClassNamed:eachClassnameSym) isNil
-         or:[cls isLoaded not and:[isAutoload not]]
-        ) ifTrue:[
+        cls := Smalltalk loadedClassNamed:eachClassnameSym.
+        (cls isNil or:[cls isLoaded not and:[isAutoload not]]) ifTrue:[
             (eachAttributes isEmpty 
              or:[(eachAttributes size == 1 and:[isAutoload])
              or:[eachAttributes includes:platformName]]) ifTrue:[
@@ -3613,7 +3612,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.120 2006-11-21 17:09:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.121 2006-11-27 16:19:56 stefan Exp $'
 ! !
 
 ProjectDefinition initialize!