--- a/EditTextViewCompletionSupport.st	Thu Jul 11 21:57:28 2019 +0200
+++ b/EditTextViewCompletionSupport.st	Sat Jul 13 14:10:43 2019 +0200
@@ -223,7 +223,7 @@
 startCompletionProcess
     "start the code completion process in the background"
 
-    |initialList cursorX cursorY|
+    |initialList cursorX cursorY p|
 
     "/ terminate any previous process
     self stopCompletionProcess.
@@ -250,7 +250,7 @@
     ].
     self openCompletionView:initialList.
 
-    completionProcess := 
+    completionProcess := p := 
         [
             [
                 "/ protect end-user applications from errors
@@ -267,12 +267,18 @@
                         self computeCompletions.
                     ].
                 ].
+                p == completionProcess ifTrue:[
+                    completionProcess := nil
+                ]
             ] ifCurtailed:[
                 "/ completionView notNil ifTrue:[
                 "/    completionView topView destroy
                 "/ ].    
             ].    
-        ] forkAt:(Processor activePriority - 1).
+        ] newProcess.
+    "/ p priority:(Processor activePriority - 1).
+    p priorityRange:(Processor activePriority-1 to:Processor activePriority).
+    p resume.
 
     "Modified: / 26-09-2013 / 17:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-09-2018 / 12:40:59 / Claus Gittinger"