--- a/Behavior.st	Mon Mar 06 14:48:14 2017 +0100
+++ b/Behavior.st	Tue Mar 07 19:14:20 2017 +0100
@@ -2145,13 +2145,13 @@
 
 allSubclassesInOrderDo:aBlock
     "evaluate aBlock for all of my subclasses.
-     The subclasses are enumerated breath first (i.e. all of a classes superclasses
+     The subclasses are enumerated breadth first (i.e. all of a classes superclasses
      come before a class, which comes before any of its subclasses).
      However, within one inheritance level, there is no specific order,
      in which the entries are enumerated.
      Warning:
-	This will only enumerate globally known classes - for anonymous
-	behaviors, you have to walk over all instances of Behavior."
+        This will only enumerate globally known classes - for anonymous
+        behaviors, you have to walk over all instances of Behavior."
 
     |meta toDo cls|
 
@@ -2159,13 +2159,13 @@
 
     toDo := self theNonMetaclass subclasses asNewOrderedCollection.
     [toDo notEmpty] whileTrue:[
-	cls := toDo removeFirst.
-	toDo addAll:cls subclasses.
-	meta ifTrue:[
-	    aBlock value:cls class.
-	] ifFalse:[
-	    aBlock value:cls.
-	]
+        cls := toDo removeFirst.
+        toDo addAll:cls subclasses.
+        meta ifTrue:[
+            aBlock value:cls class.
+        ] ifFalse:[
+            aBlock value:cls.
+        ]
     ].
 
 "/    self isMeta ifTrue:[
@@ -2188,7 +2188,7 @@
     "
 
     "Modified: / 25-10-1997 / 21:17:13 / cg"
-    "Modified (comment): / 27-07-2013 / 08:13:04 / cg"
+    "Modified (comment): / 07-03-2017 / 19:14:10 / cg"
 !
 
 allSuperclassesDo:aBlock