--- a/RegressionTests__FloatTest.st	Fri Feb 26 20:38:20 2016 +0100
+++ b/RegressionTests__FloatTest.st	Sat Feb 27 00:33:22 2016 +0100
@@ -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