# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1252411045 -7200
# Node ID 285349acebd87699fcb88e279801d1c3bc50f7cc
# Parent  d2e9bfce6e420e9fa05528e101d97bd6262bf7ba
readFrom

diff -r d2e9bfce6e42 -r 285349acebd8 Fraction.st
--- a/Fraction.st	Tue Sep 08 13:57:17 2009 +0200
+++ b/Fraction.st	Tue Sep 08 13:57:25 2009 +0200
@@ -136,6 +136,11 @@
 readFrom:aStringOrStream onError:exceptionBlock
     |s numerator denominator|
 
+    "/ sigh - care for subclasses...
+    self == Fraction ifFalse:[
+        ^ super readFrom:aStringOrStream onError:exceptionBlock
+    ].
+
     s := aStringOrStream readStream.
     s skipSeparators.
     s peek == $( ifTrue:[
@@ -1153,7 +1158,7 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.79 2009-09-08 11:55:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.80 2009-09-08 11:57:25 cg Exp $'
 ! !
 
 Fraction initialize!