diff --git a/components/codetools/tests/testctpas2js.pas b/components/codetools/tests/testctpas2js.pas
index 86f9cd0b8b..df79d655db 100644
--- a/components/codetools/tests/testctpas2js.pas
+++ b/components/codetools/tests/testctpas2js.pas
@@ -112,7 +112,8 @@ end;
 procedure TCustomTestPas2js.TearDown;
 begin
   FCode:=nil;
-  CodeToolBoss.DefineTree.RemoveDefineTemplate(VirtualDirDefines);
+  if VirtualDirDefines<>nil then
+    CodeToolBoss.DefineTree.RemoveDefineTemplate(VirtualDirDefines);
 
   inherited TearDown;
 end;