--- a/SmallSense__CompletionController.st	Thu May 15 10:40:02 2014 +0100
+++ b/SmallSense__CompletionController.st	Thu May 15 14:41:52 2014 +0100
@@ -329,7 +329,7 @@
     list = #( 'Busy...' ) ifTrue:[ ^ self ].  
 
     x := (editView xOfCol:editView cursorCol  inVisibleLine:editView cursorLine)
-            - 16"icon" - (editView widthOfString:  support wordBeforeCursor) - 5"magic constant".
+            - 16"icon" - (editView widthOfString:  "support wordBeforeCursor"list first stringAlreadyWritten) - 5"magic constant".
     y := editView yOfCursor + editView font maxHeight + 3.
     movePos := (editView originRelativeTo: nil) + (x @ y).
 
@@ -362,7 +362,7 @@
     ].
 
     "Created: / 27-09-2013 / 14:01:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 27-02-2014 / 10:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-05-2014 / 11:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateCompletions: completionResult sequence: sequence