--- a/Fraction.st	Thu Jul 18 12:11:59 1996 +0200
+++ b/Fraction.st	Thu Jul 18 12:27:25 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Magnitude-Numbers'
 !
 
-!Fraction class methodsFor:'documentation'!
+!Fraction  class methodsFor:'documentation'!
 
 copyright
 "
@@ -45,7 +45,7 @@
 "
 ! !
 
-!Fraction class methodsFor:'initialization'!
+!Fraction  class methodsFor:'initialization'!
 
 initialize
     FractionZero isNil ifTrue:[
@@ -54,7 +54,7 @@
     ]
 ! !
 
-!Fraction class methodsFor:'instance creation'!
+!Fraction  class methodsFor:'instance creation'!
 
 new
     "create and return a new fraction with value 0"
@@ -90,21 +90,25 @@
     ^ self basicNew setNumerator:num denominator:den
 ! !
 
-!Fraction class methodsFor:'constants'!
+!Fraction  class methodsFor:'constants'!
 
 unity
-    "return the neutral element for multiplication"
+    "return the neutral element for multiplication (1 / 1)"
 
     ^ FractionOne
+
+    "Modified: 18.7.1996 / 12:26:06 / cg"
 !
 
 zero
-    "return the neutral element for addition"
+    "return the neutral element for addition (0 / 1)"
 
     ^ FractionZero
+
+    "Modified: 18.7.1996 / 12:26:12 / cg"
 ! !
 
-!Fraction class methodsFor:'queries'!
+!Fraction  class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -482,9 +486,9 @@
     ^ numerator // denominator
 ! !
 
-!Fraction class methodsFor:'documentation'!
+!Fraction  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.30 1996-04-25 16:59:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.31 1996-07-18 10:27:11 cg Exp $'
 ! !
 Fraction initialize!

--- a/Integer.st	Thu Jul 18 12:11:59 1996 +0200
+++ b/Integer.st	Thu Jul 18 12:27:25 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Magnitude-Numbers'
 !
 
-!Integer class methodsFor:'documentation'!
+!Integer  class methodsFor:'documentation'!
 
 copyright
 "
@@ -53,7 +53,7 @@
 "
 ! !
 
-!Integer class methodsFor:'instance creation'!
+!Integer  class methodsFor:'instance creation'!
 
 new:numberOfBytes neg:negative
     "for ST-80 compatibility:
@@ -185,21 +185,25 @@
     "
 ! !
 
-!Integer class methodsFor:'constants'!
+!Integer  class methodsFor:'constants'!
 
 unity
-    "return the neutral element for multiplication"
+    "return the neutral element for multiplication (1)"
 
     ^ 1
+
+    "Modified: 18.7.1996 / 12:26:43 / cg"
 !
 
 zero
-    "return the neutral element for addition"
+    "return the neutral element for addition (0)"
 
     ^ 0
+
+    "Modified: 18.7.1996 / 12:26:38 / cg"
 ! !
 
-!Integer class methodsFor:'misc'!
+!Integer  class methodsFor:'misc'!
 
 displayRadix:aNumber
     "being tired of always sending #printStringRadix: in the inspectors,
@@ -1024,8 +1028,8 @@
     ^ self
 ! !
 
-!Integer class methodsFor:'documentation'!
+!Integer  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.42 1996-05-20 09:54:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.43 1996-07-18 10:27:25 cg Exp $'
 ! !