diff --git a/app/src/gambas3/.src/Debug/FTestSuite.class b/app/src/gambas3/.src/Debug/FTestSuite.class
index bf92b84eb..8a0202329 100644
--- a/app/src/gambas3/.src/Debug/FTestSuite.class
+++ b/app/src/gambas3/.src/Debug/FTestSuite.class
@@ -172,19 +172,6 @@ Private Sub StoreTests(TestSuite As String, Tests As String)
 
 End
 
-Public Sub tvwTests_Click()
-
-  $sBackuptests = TxtSelected.Text
-
-  FillSelected()
-
-  If Not lvwTestSuites.Exist(CURRENT_TESTSUITE_KEY) Then
-    lvwTestSuites.Add(CURRENT_TESTSUITE_KEY, $sCurrentTestSuiteCalled)
-  Endif
-  lvwTestSuites[CURRENT_TESTSUITE_KEY].Selected = True
-
-End
-
 Public Sub Form_KeyPress()
 
   'Maybe TODO: Ctrl-Z Ctrl-Y
@@ -318,3 +305,16 @@ Private Function GetAllowedCharsForHumans() As String
   Return sbuf
 
 End
+
+Public Sub tvwTests_Select()
+
+    $sBackuptests = TxtSelected.Text
+
+  FillSelected()
+
+  If Not lvwTestSuites.Exist(CURRENT_TESTSUITE_KEY) Then
+    lvwTestSuites.Add(CURRENT_TESTSUITE_KEY, $sCurrentTestSuiteCalled)
+  Endif
+  lvwTestSuites[CURRENT_TESTSUITE_KEY].Selected = True
+
+End