--- 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!