diff --git a/tests/utils/testsuite/tshtml.pas b/tests/utils/testsuite/tshtml.pas
index 96da06973b..bd70539378 100644
--- a/tests/utils/testsuite/tshtml.pas
+++ b/tests/utils/testsuite/tshtml.pas
@@ -226,7 +226,7 @@ Var
 begin
   P:=(Sender as TTableProducer);
   if FVars.CompareRunID<>-1 then
-    S:=Format(TestSuiteCGIURL + '?action=%d&amp;run1id=%d&amp;run2id=%s&amp;testfileid=%s',
+    S:=Format(TestSuiteCGIURL + '?action=%d&amp;run1id=%d&amp;run2id=%d&amp;testfileid=%s',
        [faction_show_one_test,FVars.RunID,FVars.CompareRunID,P.DataSet.FieldByName('Id').AsString])
   else
     S:=Format(TestSuiteCGIURL + '?action=%d&amp;run1id=%d&amp;testfileid=%s',