--- a/Fraction.st	Wed Mar 14 18:01:25 2018 +0100
+++ b/Fraction.st	Wed Mar 14 19:03:13 2018 +0100
@@ -212,8 +212,9 @@
         (s peekFor:$/) ifTrue:[
             denominator := Integer readFrom:s onError:[^ exceptionBlock value].
             result := self numerator:numerator denominator:denominator
+        ] ifFalse:[
+            result := numerator.
         ].
-        result := numerator.
     ].
     hasParen ifTrue:[
         s skipSeparators.
@@ -234,7 +235,7 @@
      Fraction readFromString:'(1/5'
     "
 
-    "Modified: / 14-03-2018 / 17:56:59 / stefan"
+    "Modified: / 14-03-2018 / 19:02:44 / stefan"
 ! !
 
 !Fraction class methodsFor:'class initialization'!