--- a/Workspace.st	Wed Sep 04 00:55:07 2013 +0200
+++ b/Workspace.st	Wed Sep 04 00:57:28 2013 +0200
@@ -2468,6 +2468,9 @@
                                 LastCompletions := OrderedCollection new.
                             ].
                             LastCompletions add:(suggestions at:indexInSuggestions).
+                            LastCompletions size > 200 ifTrue:[
+                                LastCompletions removeLast
+                            ].
 
                             actions notNil ifTrue:[
                                 actions isBlock ifTrue:[
@@ -2505,10 +2508,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.291 2013-09-03 22:55:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.292 2013-09-03 22:57:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.291 2013-09-03 22:55:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.292 2013-09-03 22:57:28 cg Exp $'
 ! !