diff --git a/app/src/gambas3/.src/Debug/FTestSuite.class b/app/src/gambas3/.src/Debug/FTestSuite.class
index af97b6cc7..df11f9bd3 100644
--- a/app/src/gambas3/.src/Debug/FTestSuite.class
+++ b/app/src/gambas3/.src/Debug/FTestSuite.class
@@ -452,3 +452,9 @@ Public Sub Form_KeyPress()
   End Select
 
 End
+
+Public Sub lvwSuite_DblClick()
+
+  Try lvwSuite.Current.Rename()
+
+End