--- a/EditTextViewCompletionSupport.st	Thu Aug 09 10:34:21 2018 +0200
+++ b/EditTextViewCompletionSupport.st	Mon Aug 13 09:43:00 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libwidg' }"
 
 "{ NameSpace: Smalltalk }"
@@ -255,7 +253,9 @@
         [
             "/ protect end-user applications from errors
             Error handle:[:ex |
-                Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ]
+                (ParseError accepts:ex creator) ifFalse:[
+                    Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ]
+                ].
             ] do:[ 
                 (editView topView isDebugView) ifTrue:[
                     ControlInterrupt ignoreIn:[
@@ -268,6 +268,7 @@
         ] forkAt:(Processor activePriority - 1).
 
     "Modified: / 26-09-2013 / 17:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-08-2018 / 08:49:42 / Claus Gittinger"
 !
 
 stopCompletionProcess
@@ -374,6 +375,7 @@
     "Created: / 26-09-2013 / 17:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !EditTextViewCompletionSupport class methodsFor:'documentation'!
 
 version