--- a/Fraction.st	Tue Feb 23 00:19:45 2016 +0100
+++ b/Fraction.st	Tue Feb 23 00:22:09 2016 +0100
@@ -184,14 +184,14 @@
 
     s := aStringOrStream readStream.
     s skipSeparators.
-    s peek == $( ifTrue:[
+    s peekOrNil == $( ifTrue:[
         s next.
     ].
 
     numerator := super readFrom:s onError:[^ exceptionBlock value].
     numerator isInteger ifTrue:[
         s skipSeparators.
-        (s peek == $/) ifTrue:[
+        (s peekOrNil == $/) ifTrue:[
             s next.
             denominator := Integer readFrom:s onError:[^ exceptionBlock value].
             ^ self numerator:numerator denominator:denominator