--- a/Float.st	Mon Jul 26 11:06:13 1999 +0200
+++ b/Float.st	Mon Jul 26 11:07:53 1999 +0200
@@ -628,31 +628,31 @@
     double result, val;
 
     if (__isSmallInteger(aNumber)) {
-	if (aNumber != __MKSMALLINT(0)) {
-	    result = __floatVal(self) / ( (double)__intVal(aNumber)) ;
+        if (aNumber != __MKSMALLINT(0)) {
+            result = __floatVal(self) / ( (double)__intVal(aNumber)) ;
 retResult:
-	    __qMKFLOAT(newFloat, result);
-	    RETURN ( newFloat );
-	}
+            __qMKFLOAT(newFloat, result);
+            RETURN ( newFloat );
+        }
     } else if (__isFloatLike(aNumber)) {
-	val = __floatVal(aNumber);
-	if (val != 0.0) {
-	    result = __floatVal(self) / val;
-	    goto retResult;
-	}
+        val = __floatVal(aNumber);
+        if (val != 0.0) {
+            result = __floatVal(self) / val;
+            goto retResult;
+        }
     } else if (__isShortFloat(aNumber)) {
-	val = (double)(__shortFloatVal(aNumber));
-	if (val != 0.0) {
-	    result = __floatVal(self) / val;
-	    goto retResult;
-	}
+        val = (double)(__shortFloatVal(aNumber));
+        if (val != 0.0) {
+            result = __floatVal(self) / val;
+            goto retResult;
+        }
     }
 %}.
     ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
-	"
-	 No, you shalt not divide by zero
-	"
-	^ DivisionByZeroSignal raise.
+        "
+         No, you shalt not divide by zero
+        "
+        ^ DivisionByZeroSignal raiseRequest.
     ].
     ^ aNumber quotientFromFloat:self
 !
@@ -1908,6 +1908,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.95 1999-07-14 23:47:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.96 1999-07-26 09:07:16 stefan Exp $'
 ! !
 Float initialize!