diff --git a/tests/utils/redir.pp b/tests/utils/redir.pp
index 1b5f0b395f..f8df259222 100644
--- a/tests/utils/redir.pp
+++ b/tests/utils/redir.pp
@@ -1111,7 +1111,8 @@ begin
           begin
             P.Terminate(255);
             if TerminateSentCount=0 then
-              Writeln(stderr,'Terminate requested for ',Path);
+              { also write ComLine in order to know which test is not ended in time }
+              Writeln(stderr,'Terminate requested for ',Path,' ',ComLine);
             Inc(TerminateSentCount);
           end;