diff --git a/Tests/Tests.dpr b/Tests/Tests.dpr
index 28b47ba4a..a396ed931 100644
--- a/Tests/Tests.dpr
+++ b/Tests/Tests.dpr
@@ -26,6 +26,7 @@ begin
exit;
{$ENDIF}
try
+ TDUnitX.Options.ExitBehavior := TDUnitXExitBehavior.Pause;
//Check command line options, will exit if invalid
TDUnitX.CheckCommandLine;
//Create the test runner
diff --git a/Tests/VTWorkerThreadIssue1001Tests.pas b/Tests/VTWorkerThreadIssue1001Tests.pas
index 6f979e0e3..04142fc04 100644
--- a/Tests/VTWorkerThreadIssue1001Tests.pas
+++ b/Tests/VTWorkerThreadIssue1001Tests.pas
@@ -9,7 +9,7 @@ interface
VirtualTrees;
type
- TTestBaseVirtualTree = class(TBaseVirtualTree)
+ TTestBaseVirtualTree = class(TVTAncestor)
public
property OnCompareNodes;
end;
diff --git a/VirtualTreesDevelopment.groupproj b/VirtualTreesDevelopment.groupproj
index 1b49a28b5..dffa2f549 100644
--- a/VirtualTreesDevelopment.groupproj
+++ b/VirtualTreesDevelopment.groupproj
@@ -24,6 +24,9 @@
+
+
+
Default.Personality.12
@@ -95,14 +98,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+