LibraryDefinition.st
changeset 9617 edf60cb58ef7
parent 9616 7bd19460f53f
child 9622 9846503abab1
--- a/LibraryDefinition.st	Mon Aug 21 19:11:34 2006 +0200
+++ b/LibraryDefinition.st	Mon Aug 21 19:16:16 2006 +0200
@@ -889,7 +889,11 @@
 
             (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[
                 specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil.
-                specEntry notNil ifTrue:[
+                specEntry isNil ifTrue:[
+                    eachClass isLoaded ifFalse:[
+                        attributes := #( autoload ).
+                    ].
+                ] ifFalse:[
                     attributes := specEntry copyFrom:2.
                 ].
 
@@ -914,7 +918,7 @@
 
     "Modified: / 08-08-2006 / 19:24:34 / fm"
     "Created: / 17-08-2006 / 21:03:07 / cg"
-    "Modified: / 21-08-2006 / 18:41:25 / cg"
+    "Modified: / 21-08-2006 / 19:16:14 / cg"
 !
 
 extensionMethodNames_code
@@ -954,5 +958,5 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.36 2006-08-21 17:11:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.37 2006-08-21 17:16:16 cg Exp $'
 ! !