--- a/Number.st	Wed Nov 23 00:02:57 1994 +0100
+++ b/Number.st	Mon Nov 28 21:34:28 1994 +0100
@@ -21,10 +21,10 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Number.st,v 1.10 1994-11-17 14:17:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Number.st,v 1.11 1994-11-28 20:33:08 claus Exp $
 '!
 
-!Number class methodsFor:'documentation' !
+!Number class methodsFor:'documentation'!
 
 copyright
 "
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Number.st,v 1.10 1994-11-17 14:17:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Number.st,v 1.11 1994-11-28 20:33:08 claus Exp $
 "
 !
 
@@ -52,7 +52,7 @@
 "
 ! !
 
-! Number methodsFor:'converting' !
+! Number methodsFor:'coercing & converting'!
 
 @ aNumber
     "return a Point with the receiver as x-coordinate and the argument
@@ -289,9 +289,9 @@
     ].
     nextChar isDigit ifFalse:[
 	^ exceptionBlock value.
-"/	value := super readFrom:aStream.
-"/	negative ifTrue:[value := value negated].
-"/	^ value
+"/      value := super readFrom:aStream.
+"/      negative ifTrue:[value := value negated].
+"/      ^ value
     ].
     value := Integer readFrom:aStream radix:10 onError:freakOut.
     nextChar := aStream peek.