--- a/hedgewars/uFloat.pas	Sun Jun 17 14:48:15 2007 +0000
+++ b/hedgewars/uFloat.pas	Sun Jul 01 11:02:47 2007 +0000
@@ -214,7 +214,8 @@
          t.QWordValue:= t.QWordValue shl 1;
          z2.QWordValue:= z2.QWordValue shl 1
          end;
-   z.Frac:= (t.QWordValue) div (z2.Round)
+   if z2.Round > 0 then z.Frac:= (t.QWordValue) div (z2.Round)
+                   else z.Frac:= 0
    end
 end;