--- a/Metaclass.st	Thu Apr 01 11:36:44 2010 +0200
+++ b/Metaclass.st	Sat Apr 03 12:46:40 2010 +0200
@@ -812,11 +812,12 @@
 !
 
 subclasses
+    "ask my non-meta for subclasses"
 
-    ^ myClass subclasses collect:[:theNonMetaClass| theNonMetaClass class].
+    ^ myClass subclasses collect:[:theNonMetaClass | theNonMetaClass class].
 
     "
-       Integer class subclasses
+     Integer class subclasses
     "
 !
 
@@ -886,11 +887,11 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.207 2009-10-13 11:11:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.208 2010-04-03 10:46:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.207 2009-10-13 11:11:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.208 2010-04-03 10:46:40 cg Exp $'
 ! !
 
 Metaclass initialize!