--- Merging r36060 into '.':

U    tests/webtbs/tw9419.pp
--- Recording mergeinfo for merge of r36060 into '.':
 U   .

# revisions: 36060


git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_0@36061 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/tests/webtbs/tw9419.pp b/tests/webtbs/tw9419.pp
index b0c708e88a..ee3e1eb1f8 100644
--- a/tests/webtbs/tw9419.pp
+++ b/tests/webtbs/tw9419.pp
@@ -13,7 +13,7 @@ var
 
 begin
   map := TMymap.Create();
-
+  map.sorted:=true;
   map.Add('Hello', ta);
 
   map.Find('Hello', i);