--- a/Workspace.st	Sat Aug 31 01:04:45 2013 +0200
+++ b/Workspace.st	Sat Aug 31 03:10:53 2013 +0200
@@ -2284,7 +2284,8 @@
                     orClass:editView editedClass 
                     context:nil 
                     codeView:editView 
-                    into:[:listOfSuggestions :listOfActions :titleWhenAsking | 
+                    into:[:listOfSuggestions :listOfActions :titleWhenAsking |
+listOfSuggestions size > 100 ifTrue:[self halt.].
                             suggestions := listOfSuggestions. 
                             actions := listOfActions.
                             anyFound := true.
@@ -2378,10 +2379,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.278 2013-08-30 23:04:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.279 2013-08-31 01:10:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.278 2013-08-30 23:04:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.279 2013-08-31 01:10:53 cg Exp $'
 ! !