--- a/EditTextViewCompletionSupport.st	Mon Mar 24 10:00:53 2014 +0100
+++ b/EditTextViewCompletionSupport.st	Mon Mar 24 10:01:58 2014 +0100
@@ -285,6 +285,7 @@
         completionView extent:completionView preferredExtentForContents.
         "/ completionView font: editView font.
         topView := CodeCompletionHelpView with:completionView.
+        topView editView:editView.
     ] ifFalse:[
         completionView list:list.
         topView := completionView topView.
@@ -303,10 +304,10 @@
 !EditTextViewCompletionSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.6 2013-11-08 14:10:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.7 2014-03-24 09:01:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.6 2013-11-08 14:10:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.7 2014-03-24 09:01:58 cg Exp $'
 ! !