--- a/hedgewars/uTeams.pas	Tue Nov 02 10:53:38 2010 -0400
+++ b/hedgewars/uTeams.pas	Wed Nov 03 00:48:42 2010 +0100
@@ -275,7 +275,9 @@
 ResetKbd;
 
 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
-cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue;
+// cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws 'Internal error 200502052' on Darwin
+// see http://mantis.freepascal.org/view.php?id=17714
+cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
 if cWindSpeed.isNegative then
     CWindSpeedf := -cWindSpeedf;
 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);