--- a/RegressionTests__FloatTest.st	Fri Feb 26 16:36:47 2016 +0000
+++ b/RegressionTests__FloatTest.st	Fri Mar 04 08:16:39 2016 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -484,7 +486,7 @@
 "/        rsltLargeFloat := arg asLargeFloat perform:op.
 
         self assert:(rslt class == Float).
-        self assert:(rsltShortFloat class == Float).  "/ ???
+        "/ self assert:(rsltShortFloat class == Float).  "/ ??? not a good test; some return a float
         self assert:(rsltLongFloat class == LongFloat).
 
         self assert:( rslt - rsltShortFloat ) < epsilon.
@@ -582,6 +584,8 @@
     "
      self basicNew test06_MiscMath
     "
+
+    "Modified (comment): / 27-02-2016 / 00:33:20 / cg"
 !
 
 test07_Truncation