--- a/RegressionTests__JITTest.st	Thu Jun 21 09:29:31 2001 +0200
+++ b/RegressionTests__JITTest.st	Thu Jun 21 09:36:17 2001 +0200
@@ -280,21 +280,21 @@
 !JITTest methodsFor:'public - test - blocks'!
 
 testFindFirst
-    self assert:(self tstFindFirst1:1) == 1.
-    self assert:(self tstFindFirst1:2) == 2.
-    self assert:(self tstFindFirst1:3) == 3.
-    self assert:(self tstFindFirst1:4) == 4.
-    self assert:(self tstFindFirst1:0) == 0.
-    self assert:(self tstFindFirst1:10) == 0.
-    self assert:(self tstFindFirst1:4.0) == 0.
-
-    self assert:(self tstFindFirst2:1) == 1.
-    self assert:(self tstFindFirst2:2) == 2.
-    self assert:(self tstFindFirst2:3) == 3.
-    self assert:(self tstFindFirst2:4) == 4.
-    self assert:(self tstFindFirst2:0) == 0.
-    self assert:(self tstFindFirst2:10) == 0.
-    self assert:(self tstFindFirst2:4.0) == 4.
+    self assert:(self findFirst1:1) == 1.
+    self assert:(self findFirst1:2) == 2.
+    self assert:(self findFirst1:3) == 3.
+    self assert:(self findFirst1:4) == 4.
+    self assert:(self findFirst1:0) == 0.
+    self assert:(self findFirst1:10) == 0.
+    self assert:(self findFirst1:4.0) == 0.
+
+    self assert:(self findFirst2:1) == 1.
+    self assert:(self findFirst2:2) == 2.
+    self assert:(self findFirst2:3) == 3.
+    self assert:(self findFirst2:4) == 4.
+    self assert:(self findFirst2:0) == 0.
+    self assert:(self findFirst2:10) == 0.
+    self assert:(self findFirst2:4.0) == 4.
 
     "
      self basicNew testFindFirst
@@ -742,6 +742,40 @@
     "
 !
 
+findFirst1:arg 
+    |idx|
+
+    i1 := #(1 2 3 4) asOrderedCollection.
+    ^ i1 findFirst:[:el | el == arg]
+
+    "
+     self new findFirst1:1      
+     self new findFirst1:2      
+     self new findFirst1:3       
+     self new findFirst1:4       
+     self new findFirst1:0       
+     self new findFirst1:10       
+     self new findFirst1:4.0       
+    "
+!
+
+findFirst2:arg 
+    |idx|
+
+    i1 := #(1 2 3 4) asOrderedCollection.
+    ^ i1 findFirst:[:el | el = arg]
+
+    "
+     self new findFirst2:1      
+     self new findFirst2:2      
+     self new findFirst2:3       
+     self new findFirst2:4       
+     self new findFirst2:0       
+     self new findFirst2:10       
+     self new findFirst2:4.0       
+    "
+!
+
 nilBlock1
     ^ []
 
@@ -769,40 +803,6 @@
     "
 !
 
-tstFindFirst1:arg 
-    |idx|
-
-    i1 := #(1 2 3 4) asOrderedCollection.
-    ^ i1 findFirst:[:el | el == arg]
-
-    "
-     self new tstFindFirst1:1      
-     self new tstFindFirst1:2      
-     self new tstFindFirst1:3       
-     self new tstFindFirst1:4       
-     self new tstFindFirst1:0       
-     self new tstFindFirst1:10       
-     self new tstFindFirst1:4.0       
-    "
-!
-
-tstFindFirst2:arg 
-    |idx|
-
-    i1 := #(1 2 3 4) asOrderedCollection.
-    ^ i1 findFirst:[:el | el = arg]
-
-    "
-     self new tstFindFirst2:1      
-     self new tstFindFirst2:2      
-     self new tstFindFirst2:3       
-     self new tstFindFirst2:4       
-     self new tstFindFirst2:0       
-     self new tstFindFirst2:10       
-     self new tstFindFirst2:4.0       
-    "
-!
-
 zeroBlock1
     ^ [0]