--- a/Scanner.st	Wed Oct 12 18:01:37 2016 +0200
+++ b/Scanner.st	Wed Oct 12 21:40:12 2016 +0200
@@ -3549,7 +3549,8 @@
                 delimiter := String streamContents:[:s | self skipToEndOfLineRememberingIn:s].
                 delimiter := delimiter withoutSeparators.
                 delimiter isEmpty ifTrue:[
-                    self parseError:'invalid delimiter in comment'
+                    self parseError:'invalid delimiter in comment'.
+                    ^  self
                 ].
                 ((delimiter first isLetterOrUnderline)
                 and:[delimiter from:2 conform:[:ch | ch isLetterOrDigit]]) ifFalse:[