--- a/Workspace.st	Mon Sep 09 13:19:41 2013 +0200
+++ b/Workspace.st	Mon Sep 09 13:20:41 2013 +0200
@@ -2476,8 +2476,24 @@
                         preselectIdx := 1.
                     ].
                 ].
-
-                v list:suggestions.
+                preselectIdx notNil ifTrue:[
+                    |pref|
+
+                    pref := suggestions at:preselectIdx.
+                    "/ for now, do not move to fron (action may need the index)
+                    suggestions at:preselectIdx put:(pref allBold).
+"/                    suggestions removeAtIndex:preselectIdx.                    
+"/                    suggestions addFirst:(pref allBold).
+"/                    implementations notNil ifTrue:[
+"/                        implementations removeAtIndex:preselectIdx.
+"/                        implementations addFirst:implementations.
+"/                    ]
+                ].
+
+                v list:suggestions 
+                        expandTabs:false scanForNonStrings:false
+                        includesNonStrings:false redraw:true.
+
                 implementations notNil ifTrue:[
                     implementations keysAndValuesDo:[:idx :impls |
                         |implsMenu|
@@ -2494,9 +2510,11 @@
 
                 v enable:true.
                 preselectIdx notNil ifTrue:[
-                    v selection:preselectIdx
+                    false ifTrue:[
+                        "/ very disturbing!!
+                        v selection:preselectIdx.
+                    ].
                 ].
-
                 v extent:completionView preferredExtentForContents.
 
                 v action:
@@ -2557,10 +2575,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.300 2013-09-08 22:14:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.301 2013-09-09 11:20:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.300 2013-09-08 22:14:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.301 2013-09-09 11:20:41 cg Exp $'
 ! !