From 2e9b644cebbb09a78a455e575c35a9154bb42c71 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 29 Jan 2025 13:15:19 +0100
Subject: [PATCH] * Fix wrong format specifier

---
 tests/utils/testsuite/tshtml.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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',