--- a/RegressionTests__TSTreeTests.st	Tue Mar 26 18:29:44 2019 +0100
+++ b/RegressionTests__TSTreeTests.st	Tue Mar 26 18:29:46 2019 +0100
@@ -12,14 +12,6 @@
 
 !TSTreeTests methodsFor:'as yet unclassified'!
 
-setUp
-    tree := self tstreeClass new.
-    self words shuffled do:[:ea |
-	tree at:ea put:ea asUppercase
-    ].
-    empty := self tstreeClass new.
-!
-
 testAt
 	self assert: (tree at: 'abear') = 'ABEAR'.
 	self assert: (tree at: 'abelmosk') = 'ABELMOSK'.
@@ -104,6 +96,16 @@
 abetment)
 ! !
 
+!TSTreeTests methodsFor:'initialize / release'!
+
+setUp
+    tree := self tstreeClass new.
+    self words shuffled do:[:ea |
+	tree at:ea put:ea asUppercase
+    ].
+    empty := self tstreeClass new.
+! !
+
 !TSTreeTests class methodsFor:'documentation'!
 
 version