--- a/SomeNumber.st	Wed Jul 02 11:46:27 2003 +0200
+++ b/SomeNumber.st	Wed Jul 02 11:52:56 2003 +0200
@@ -50,20 +50,6 @@
 "
 ! !
 
-!SomeNumber methodsFor:'accessing'!
-
-realNumber
-    "return the value of the instance variable 'realNumber' (automatically generated)"
-
-    ^ realNumber
-!
-
-realNumber:something
-    "set the value of the instance variable 'realNumber' (automatically generated)"
-
-    realNumber := something.
-! !
-
 !SomeNumber methodsFor:'arithmetic'!
 
 * something
@@ -97,19 +83,32 @@
 !
 
 = something
-    "return true if the receiver is equal to the argument"
+    "return true, if the argument represents the same numeric value
+     as the receiver, false otherwise."
 
     ^ something equalFromSomeNumber:self
 ! !
 
+!SomeNumber methodsFor:'private-accessing'!
+
+realNumber
+    ^ realNumber
+!
+
+realNumber:something
+    realNumber := something.
+! !
+
 !SomeNumber methodsFor:'queries'!
 
 sign
+    "return the sign of the receiver (-1, 0 or 1)"
+
     ^ realNumber sign
 ! !
 
 !SomeNumber class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.2 2003-07-02 09:46:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.3 2003-07-02 09:52:23 cg Exp $'
 ! !