--- a/SmallSense__SmalltalkParseNodeFinder.st	Tue Jun 17 09:06:21 2014 +0100
+++ b/SmallSense__SmalltalkParseNodeFinder.st	Tue Jun 17 16:08:35 2014 +0100
@@ -35,7 +35,7 @@
     [
         i < comments size and:[ (s := comments at:i) notNil ]
     ] whileTrue:[
-        e := "s + "(comments at:i + 1) - 1.
+        e := "s + "(comments at:i + 1)" - 1".
         (pos between:s and:e) ifTrue:[
             ^ nil -> pos.
         ].
@@ -48,7 +48,7 @@
     ^ (match ? previous) -> pos.
 
     "Created: / 29-01-2014 / 10:20:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 08-04-2014 / 14:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-06-2014 / 16:04:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkParseNodeFinder methodsFor:'visiting'!