ProjectDefinition.st
changeset 10114 889031849160
parent 10113 78086bf25905
child 10115 a43005ac7423
--- a/ProjectDefinition.st	Mon Oct 23 16:05:18 2006 +0200
+++ b/ProjectDefinition.st	Mon Oct 23 16:19:59 2006 +0200
@@ -591,17 +591,16 @@
 !
 
 installAutoloadedClasses
-    self classNamesForWhich:[:nm :attr | 
-        (attr includes:#autoload) ifTrue:[
-            (Smalltalk classNamed:nm) isNil ifTrue:[
+    (self classNamesForWhich:[:nm :attr | (attr includes:#autoload)]) 
+        do:[:className |
+            (Smalltalk classNamed:className) isNil ifTrue:[
                 Smalltalk
-                    installAutoloadedClassNamed:nm
+                    installAutoloadedClassNamed:className
                     category:'* unknown category *' 
                     package:self package 
                     revision:nil
             ].
         ].
-    ]
 
     "
      stx_libbasic installAutoloadedClasses
@@ -3403,7 +3402,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.101 2006-10-23 14:05:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.102 2006-10-23 14:19:59 cg Exp $'
 ! !
 
 ProjectDefinition initialize!