--- a/SmallSense__TokenPatternParser.st	Fri May 09 17:16:42 2014 +0100
+++ b/SmallSense__TokenPatternParser.st	Fri May 09 17:29:26 2014 +0100
@@ -60,6 +60,22 @@
                 negated: negated
 
     "Created: / 09-05-2014 / 15:48:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+next
+    "Advance the input storing the just read character
+    as the lookahead."
+
+    "/ Overriden here to allow for spaces (to increase readability)
+
+    input atEnd ifTrue: [
+        lookahead := #epsilon.
+    ] ifFalse:[ 
+        input skipSeparators.
+        lookahead := input next
+    ].
+
+    "Created: / 09-05-2014 / 17:24:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TokenPatternParser methodsFor:'recursive descent'!