--- a/RegressionTests__FloatTest.st	Wed Jan 09 21:34:11 2013 +0100
+++ b/RegressionTests__FloatTest.st	Thu Jan 24 19:27:04 2013 +0100
@@ -334,6 +334,21 @@
     self assert:( 1.0 asLongFloat / 1.0 asFloat ) class == LongFloat.
     self assert:( 1.0 asLongFloat / 1 ) class == LongFloat.
 
+    self assert:( 5.0 rem: 2.0 ) class == Float.
+    self assert:( 5.0 rem: 2.0 asShortFloat) class == Float.
+    self assert:( 5.0 rem: 2.0 asLongFloat) class == LongFloat.
+    self assert:( 5.0 rem: 2) class == Float.
+
+    self assert:( 5.0 asShortFloat rem: 2.0 ) class == Float.
+    self assert:( 5.0 asShortFloat rem: 2.0 asShortFloat) class == ShortFloat.
+    self assert:( 5.0 asShortFloat rem: 2.0 asLongFloat) class == LongFloat.
+    self assert:( 5.0 asShortFloat rem: 2) class == ShortFloat.
+
+    self assert:( 5.0 asLongFloat rem: 2.0 ) class == LongFloat.
+    self assert:( 5.0 asLongFloat rem: 2.0 asShortFloat ) class == LongFloat.
+    self assert:( 5.0 asLongFloat rem: 2.0 asFloat ) class == LongFloat.
+    self assert:( 5.0 asLongFloat rem: 2 ) class == LongFloat.
+
     "
      self basicNew test04_Arithmetic
     "
@@ -768,3 +783,4 @@
 version
     ^ '$Header$'
 ! !
+