--- a/Fraction.st Tue Oct 27 16:10:19 2015 +0100
+++ b/Fraction.st Tue Oct 27 16:10:26 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -11,6 +13,8 @@
"
"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
+
Number subclass:#Fraction
instanceVariableNames:'numerator denominator'
classVariableNames:'FractionOne FractionZero PrintWholeNumbers'
@@ -634,7 +638,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 asFraction
!
@@ -1191,11 +1195,11 @@
!Fraction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.86 2015-04-20 10:48:54 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.86 2015-04-20 10:48:54 cg Exp $'
+ ^ '$Header$'
! !