--- a/Float.st	Tue May 26 08:38:07 2009 +0200
+++ b/Float.st	Tue May 26 08:38:10 2009 +0200
@@ -657,7 +657,7 @@
 !Float methodsFor:'arithmetic'!
 
 * aNumber
-    "return the product of the receiver and the argument, aNumber"
+    "return the product of the receiver and the argument."
 
 %{  /* NOCONTEXT */
 
@@ -674,18 +674,18 @@
     double result;
 
     if (__isSmallInteger(aNumber)) {
-	result = __floatVal(self) * (double)(__intVal(aNumber));
+        result = __floatVal(self) * (double)(__intVal(aNumber));
 retResult:
-	__qMKFLOAT(newFloat, result);
-	RETURN ( newFloat );
+        __qMKFLOAT(newFloat, result);
+        RETURN ( newFloat );
     }
     if (__isFloatLike(aNumber)) {
-	result = __floatVal(self) * __floatVal(aNumber);
-	goto retResult;
+        result = __floatVal(self) * __floatVal(aNumber);
+        goto retResult;
     } 
     if (__isShortFloat(aNumber)) {
-	result = __floatVal(self) * (double)(__shortFloatVal(aNumber));
-	goto retResult;
+        result = __floatVal(self) * (double)(__shortFloatVal(aNumber));
+        goto retResult;
     }
 %}.
     ^ aNumber productFromFloat:self
@@ -2679,7 +2679,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.166 2009-05-26 06:30:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.167 2009-05-26 06:38:10 cg Exp $'
 ! !
 
 Float initialize!