--- a/WorkspaceCompletionSupport.st	Mon May 02 14:11:27 2016 +0200
+++ b/WorkspaceCompletionSupport.st	Mon May 02 17:44:41 2016 +0200
@@ -80,13 +80,13 @@
     actions := actionsArg.
 
     suggestions := suggestionsArg ? #().
-    numShown := 20.
+    numShown := 25.
     suggestions size > numShown ifTrue:[
         numFirst := numShown-5.    
         numLast := 5.
         numSkipped := suggestions size-numShown.    
         suggestions := (suggestions copyTo:numShown-5) 
-                        , { ('%1 more suppressed' bindWith:numSkipped) colorizeAllWith:Color grey }  
+                        , { ('<< %1 more skipped >>' bindWith:numSkipped) colorizeAllWith:Color grey }  
                         , (suggestions copyLast:5).
         implementations isArray ifTrue:[ 
             implementations := (implementations copyTo:numShown-5),#(nil),(implementations copyLast:5).