--- a/Workspace.st	Sat Sep 14 12:20:25 2013 +0200
+++ b/Workspace.st	Sat Sep 14 12:20:51 2013 +0200
@@ -2229,10 +2229,11 @@
     "/ key for completion view ? (careful: do not forward too many, it would disturb user's typing)
     key isCharacter ifFalse:[
         "/ forward to menu
-        completionView notNil ifTrue:[
-            eatCursorLeftOrRight := completeImmediate not
-                                    or:[ editView sensor shiftDown 
-                                    or:[ editView sensor ctrlDown ]].
+        (completionView notNil) ifTrue:[
+            eatCursorLeftOrRight := false.
+"/                                    completeImmediate not
+"/                                    or:[ editView sensor shiftDown 
+"/                                    or:[ editView sensor ctrlDown ]].
             (key == #CursorDown 
                 or:[ (key == #CursorUp)
                 or:[ ((key == #CursorLeft) and:[eatCursorLeftOrRight])
@@ -2247,7 +2248,7 @@
                 ].
             ].
 
-            (key == #Control_L or:[ key == #Control_R or:[ key == #Control]]) ifTrue:[
+            (key == #Control_L or:[ key == #Control_R or:[ key == #Control or:[ key == #Ctrl ]]]) ifTrue:[
                 "/ CTRL is a toggle
                 self closeCompletionView.   
                 ^ true.
@@ -2576,10 +2577,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.303 2013-09-10 19:49:18 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.304 2013-09-14 10:20:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.303 2013-09-10 19:49:18 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.304 2013-09-14 10:20:51 cg Exp $'
 ! !