--- a/ProjectDefinition.st	Mon Aug 21 16:42:06 2006 +0200
+++ b/ProjectDefinition.st	Mon Aug 21 19:11:23 2006 +0200
@@ -463,17 +463,19 @@
     "Modified: / 17-08-2006 / 20:47:20 / cg"
 !
 
+common_compiled_classNames          
+    ^ self classNamesForWhich:[:nm :attr | attr isEmptyOrNil].
+
+    "Modified: / 07-08-2006 / 21:25:25 / fm"
+    "Created: / 21-08-2006 / 18:47:12 / cg"
+!
+
 compiled_classNames          
-    ^ self 
-        classNamesForWhich:[:nm :attr |
-            (attr includes:#autoload) not
-            and:[(attr includes:#unix) not
-            and:[(attr includes:#win32) not ]]
-        ].
+    ^ self classNamesForWhich:[:nm :attr | attr isEmptyOrNil or:[(attr includes:#autoload) not]].
 
     "Created: / 07-08-2006 / 19:02:57 / fm"
     "Modified: / 07-08-2006 / 21:25:25 / fm"
-    "Modified: / 17-08-2006 / 20:47:20 / cg"
+    "Modified: / 21-08-2006 / 18:48:31 / cg"
 !
 
 compiled_classNamesForArchitecture:architectureID          
@@ -871,9 +873,10 @@
     ^ String 
         streamContents:[:s | 
             self allClassNames do:[:eachClassName | 
-                |cls fn|
+                |cls fn wasLoaded|
 
                 cls := Smalltalk classNamed:eachClassName.
+                wasLoaded := cls isLoaded.
                 cls autoload.
 
                 s nextPutAll:eachClassName.
@@ -888,6 +891,10 @@
                 s nextPutAll: (cls category asString storeString).
                 s nextPutAll:' '; nextPutAll:(cls theMetaclass instVarNames size) printString.
                 s cr.
+
+                wasLoaded ifFalse:[
+                    cls unload
+                ]
             ]
         ]
 
@@ -898,7 +905,7 @@
     "
 
     "Created: / 09-08-2006 / 11:24:39 / fm"
-    "Modified: / 18-08-2006 / 13:45:50 / cg"
+    "Modified: / 21-08-2006 / 18:51:04 / cg"
 !
 
 generate_bc_dot_def                         
@@ -1599,5 +1606,5 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.23 2006-08-21 12:57:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.24 2006-08-21 17:11:23 cg Exp $'
 ! !