diff -r d4cb8f216724 -r bfe14b38dad1 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Mon Nov 01 13:02:39 2010 -0400
+++ b/hedgewars/uTeams.pas	Mon Nov 01 18:51:38 2010 +0100
@@ -275,9 +275,7 @@
 ResetKbd;
 
 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
-// cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws Internal error 200502052 on fpc 2.5.1
-// see http://mantis.freepascal.org/view.php?id=17714
-cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
+cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue;
 if cWindSpeed.isNegative then
     CWindSpeedf := -cWindSpeedf;
 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);