--- a/RegressionTests__FloatTest.st Tue Apr 17 14:43:52 2012 +0200 +++ b/RegressionTests__FloatTest.st Tue Apr 17 22:28:55 2012 +0200 @@ -28,7 +28,7 @@ x := one. count := 0. - [ one + x > one] whileTrue:[ + [one + x > one] whileTrue:[ x := x / 2. count := count + 1. ].