--- a/Tools__TestRunner2.st	Thu Apr 04 09:42:22 2013 +0200
+++ b/Tools__TestRunner2.st	Thu Apr 04 10:15:45 2013 +0200
@@ -1149,13 +1149,14 @@
 !
 
 allTestPackages
-
     | packages |
+
     packages := Set new.
-    Smalltalk allClassesDo:
-        [:cls|
-        (self isTestCaseLike: cls) ifTrue:
-            [packages add: cls package]].
+    Smalltalk allClassesDo: [:cls|
+        (self isTestCaseLike: cls) ifTrue:[
+            packages add: cls package
+        ]
+    ].
     ^packages
 
     "Modified: / 28-02-2011 / 21:25:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1845,7 +1846,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.38 2013-04-02 09:33:29 stefan Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.39 2013-04-04 08:15:45 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2344,11 +2345,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.38 2013-04-02 09:33:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.39 2013-04-04 08:15:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.38 2013-04-02 09:33:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.39 2013-04-04 08:15:45 cg Exp $'
 !
 
 version_SVN