--- Merging r36060 into '.':

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

# revisions: 36060

git-svn-id: branches/fixes_3_0@36061 -

tests/webtbs/tw9419.pp

@@ -13,7 +13,7 @@ var
 
 begin
   map := TMymap.Create();
-
+  map.sorted:=true;
   map.Add('Hello', ta);
 
   map.Find('Hello', i);