* Fix boundary in sort

src/base/fresnel.keys.pas

@@ -1248,7 +1248,7 @@ begin
     if FSortedKeys=Nil then
       begin
       FSortedKeys:=GetSpecialKeyArray;
-      QuickSort(FSortedKeys,0,Length(FSortedKeys));
+      QuickSort(FSortedKeys,0,Length(FSortedKeys)-1);
       end;
     Idx:=IndexOf(aKeyCode);
     if Idx<>-1 then