From 5ac13430be42202e0a420849d8d8a7a0dd74168a Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Sat, 14 Jan 2012 18:09:07 +0100
Subject: [PATCH] * Fixed possible range overflow

---
 Client/ULandscape.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Client/ULandscape.pas b/Client/ULandscape.pas
index 275f2c0..bf0e666 100644
--- a/Client/ULandscape.pas
+++ b/Client/ULandscape.pas
@@ -1588,7 +1588,7 @@ begin
   end
   else if FShortCuts[0] <> nil then
   begin
-    stepSize := FCount div 10;
+    stepSize := FCount div 10 + 1;
     nextStep := stepSize;
     step := 0;
     shortcut := 1;