--- a/WorkspaceCompletionSupport.st	Tue Oct 01 11:10:21 2013 +0200
+++ b/WorkspaceCompletionSupport.st	Tue Oct 08 17:20:17 2013 +0200
@@ -144,14 +144,16 @@
                     |pref|
 
                     pref := suggestions at:preselectIdx.
-                    "/ for now, do not move to front (action needs the index)
-                    suggestions at:preselectIdx put:(pref allBold).
+                    pref notNil ifTrue:[
+                        "/ for now, do not move to front (action needs the index)
+                        suggestions at:preselectIdx put:(pref allBold).
 "/                    suggestions removeAtIndex:preselectIdx.                    
 "/                    suggestions addFirst:(pref allBold).
 "/                    implementations notNil ifTrue:[
 "/                        implementations removeAtIndex:preselectIdx.
 "/                        implementations addFirst:implementations.
 "/                    ]
+                    ].
                 ].
 
                 performCompletion :=
@@ -230,10 +232,10 @@
 !WorkspaceCompletionSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.3 2013-10-01 09:10:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.4 2013-10-08 15:20:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.3 2013-10-01 09:10:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.4 2013-10-08 15:20:17 cg Exp $'
 ! !