--- a/RegressionTests__FloatTest.st	Fri Nov 12 13:24:54 2004 +0100
+++ b/RegressionTests__FloatTest.st	Fri Nov 12 13:26:31 2004 +0100
@@ -3,10 +3,10 @@
 "{ NameSpace: RegressionTests }"
 
 TestCase subclass:#FloatTest
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'tests-Regression'
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'tests-Regression'
 !
 
 
@@ -437,7 +437,7 @@
     ) pairWiseDo:[:op :arg |
         self assert:( arg perform:op ) class == Float.
         self assert:( arg asShortFloat perform:op ) class == Float.
-"/        self assert:( arg asLongFloat perform:op ) class == LongFloat.
+        self assert:( arg asLongFloat perform:op ) class == LongFloat.
         ( arg asLongFloat perform:op ) class == LongFloat ifFalse:[
             Transcript showCR:'warning: missing LongFloat function: ' , op.
         ].
@@ -447,7 +447,7 @@
 "/        self assert:( (arg perform:op) - (arg asLargeFloat perform:op) ) < 0.000001.
         self assert:( (arg perform:op) - (arg perform:op) asShortFloat ) < 0.000001.
         self assert:( (arg perform:op) - (arg perform:op) asLongFloat ) < 0.000001.
-        self assert:( (arg perform:op) - (arg perform:op) asLargeFloat ) < 0.000001.
+"/        self assert:( (arg perform:op) - (arg perform:op) asLargeFloat ) < 0.000001.
     ].
 
     "