--- a/EditTextViewCompletionSupport.st	Fri Sep 14 17:08:06 2018 +0200
+++ b/EditTextViewCompletionSupport.st	Fri Sep 14 22:20:46 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libwidg' }"
 
 "{ NameSpace: Smalltalk }"
@@ -251,24 +253,30 @@
 
     completionProcess := 
         [
-            "/ protect end-user applications from errors
-            Error handle:[:ex |
-                (ParseError accepts:ex creator) ifFalse:[
-                    Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ]
+            [
+                "/ protect end-user applications from errors
+                Error handle:[:ex |
+                    (ParseError accepts:ex creator) ifFalse:[
+                        Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ]
+                    ].
+                ] do:[ 
+                    (editView topView isDebugView) ifTrue:[
+                        ControlInterrupt ignoreIn:[
+                            self computeCompletions.
+                        ].    
+                    ] ifFalse:[    
+                        self computeCompletions.
+                    ].
                 ].
-            ] do:[ 
-                (editView topView isDebugView) ifTrue:[
-                    ControlInterrupt ignoreIn:[
-                        self computeCompletions.
-                    ].    
-                ] ifFalse:[    
-                    self computeCompletions.
-                ].
-            ].
+            ] ifCurtailed:[
+                completionView notNil ifTrue:[
+                    completionView topView destroy
+                ].    
+            ].    
         ] 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"
+    "Modified: / 14-09-2018 / 22:05:12 / Claus Gittinger"
 !
 
 stopCompletionProcess
@@ -295,11 +303,14 @@
 
     (v := completionView) notNil ifTrue:[
         completionView := nil.
+
         "/ let it close itself - avoids synchronization problems
         v sensor
             pushUserEvent:#value
             for:[ v topView destroy ]
     ].
+
+    "Modified (format): / 14-09-2018 / 22:08:05 / Claus Gittinger"
 !
 
 openCompletionView