--- a/ShortFloat.st	Tue Oct 27 17:20:40 2015 +0100
+++ b/ShortFloat.st	Tue Oct 27 17:21:32 2015 +0100
@@ -247,6 +247,8 @@
 !
 
 coerce:aNumber
+    "convert the argument aNumber into an instance of the receiver's class and return it."
+
     ^ aNumber asShortFloat.
 !
 
@@ -792,7 +794,7 @@
      Do not check for divide by zero (return NaN or Infinity).
      This operation is provided for emulators of other languages/semantics,
      where no exception is raised for these results (i.e. Java).
-     Its only defined if the arguments type is the same as the receivers."
+     It is only defined if the argument's type is the same as the receiver's."
 
 %{  /* NOCONTEXT */
 
@@ -801,21 +803,21 @@
     double dResult, dVal;
 
     if (__isSmallInteger(aNumber)) {
-	result = __shortFloatVal(self) / (float)(__intVal(aNumber));
+        result = __shortFloatVal(self) / (float)(__intVal(aNumber));
 retResult:
-	__qMKSFLOAT(newFloat, result);
-	RETURN ( newFloat );
+        __qMKSFLOAT(newFloat, result);
+        RETURN ( newFloat );
     }
     if (__isShortFloat(aNumber)) {
-	val = __shortFloatVal(aNumber);
-	result = __shortFloatVal(self) / val;
-	goto retResult;
+        val = __shortFloatVal(aNumber);
+        result = __shortFloatVal(self) / val;
+        goto retResult;
     }
     if (__isFloatLike(aNumber)) {
-	dVal = __floatVal(aNumber);
-	dResult = (double) __shortFloatVal(self) / dVal;
-	__qMKFLOAT(newFloat, dResult);
-	RETURN ( newFloat );
+        dVal = __floatVal(aNumber);
+        dResult = (double) __shortFloatVal(self) / dVal;
+        __qMKFLOAT(newFloat, dResult);
+        RETURN ( newFloat );
     }
 %}.
     ^ aNumber quotientFromShortFloat:self
@@ -881,7 +883,7 @@
 !
 
 coerce:aNumber
-    "convert the argument aNumber into an instance of the receivers class and return it."
+    "convert the argument aNumber into an instance of the receiver's class and return it."
 
     ^ aNumber asShortFloat
 !
@@ -2098,11 +2100,11 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.140 2015-03-25 19:18:18 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.140 2015-03-25 19:18:18 cg Exp $'
+    ^ '$Header$'
 ! !