--- a/Float.st	Tue Sep 04 12:48:12 2001 +0200
+++ b/Float.st	Tue Sep 04 13:27:12 2001 +0200
@@ -648,31 +648,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 raiseRequest.
+        "
+         No, you shalt not divide by zero
+        "
+        ^ DivisionByZeroSignal raiseRequestWith:thisContext.
     ].
     ^ aNumber quotientFromFloat:self
 !
@@ -2089,6 +2089,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.114 2001-06-26 14:03:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.115 2001-09-04 11:26:41 cg Exp $'
 ! !
 Float initialize!