--- a/Tools_ClassList.st Sat Feb 22 13:42:00 2014 +0100
+++ b/Tools_ClassList.st Sat Feb 22 13:42:48 2014 +0100
@@ -1213,7 +1213,7 @@
inGeneratorHolder isNil ifTrue:[
"/ for standAlone testing
- generator := environment allClasses.
+ generator := (environment?Smalltalk) allClasses.
(self hideUnloadedClasses value) ifTrue:[
generator := generator select:[:cls | cls isLoaded]
].
@@ -2086,10 +2086,10 @@
!ClassList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.79 2014-02-05 18:58:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.80 2014-02-22 12:42:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.79 2014-02-05 18:58:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.80 2014-02-22 12:42:48 cg Exp $'
! !