--- 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 $'
! !