--- a/MenuEditor.st	Tue Jul 25 08:26:40 2006 +0200
+++ b/MenuEditor.st	Thu Aug 10 13:14:12 2006 +0200
@@ -4997,12 +4997,9 @@
 !MenuEditor::ResourceEditor methodsFor:'aspects'!
 
 entryCompletionForRetriever
-    ^ [ :s :field | 
-        |info|
-
-        info := Smalltalk classnameCompletion:s.
-        field contents:info first.
-      ].
+    ^ DoWhatIMeanSupport classNameEntryCompletionBlock.
+
+    "Modified: / 10-08-2006 / 12:55:22 / cg"
 !
 
 iconAndLabelHolder