--- a/extensions.st	Sat Dec 06 22:27:37 2014 +0000
+++ b/extensions.st	Mon Dec 08 02:42:33 2014 +0000
@@ -71,17 +71,23 @@
     ].
     dialog := SmallSense::PackageSearchDialog new.
     dialog title: title.
-    dialog recentlySearchedObjects: suggestions.
-    dialog recentlySearchedPatterns: suggestions.
     dialog filter: [ :pkg | listOfProjects includes: pkg ].
     dialog updateMatchingObjects.
     (initialTextOrNil notNil and:[initialTextOrNil ~~ PackageId noProjectID]) ifTrue:[
-        dialog pattern: initialTextOrNil.
-        dialog selection: initialTextOrNil.
+        initialTextOrNil isEmpty ifTrue:[
+            suggestions size == 1 ifTrue:[
+                dialog pattern:   suggestions anElement. 
+                dialog selection: suggestions anElement. 
+            ].
+        ] ifFalse:[ 
+            dialog pattern: initialTextOrNil.
+            dialog selection: initialTextOrNil.
+        ]
     ].
     ^ dialog open.
 
     "Created: / 25-11-2014 / 13:20:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-12-2014 / 02:17:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditTextView methodsFor:'accessing-behavior'!