diff -r 3b616f1c9f9b -r 9d64e4a650bb DialogBox.st
--- a/DialogBox.st	Sat Oct 18 11:49:17 2008 +0200
+++ b/DialogBox.st	Sat Oct 18 11:50:55 2008 +0200
@@ -5300,17 +5300,15 @@
     "
 !
 
-requestProject:title initialAnswer:initialTextOrNil suggestions:suggestions
+requestProject:title from:listOfProjects initialAnswer:initialTextOrNil suggestions:suggestions
     "Ask for a project (package-id)"
 
-    |allProjects newProject box|
-
-    allProjects := Smalltalk allProjectIDs.
+    |newProject box|
 
     box := ListSelectionBox new.
     box useComboBoxWithList:suggestions.
     box title:title.
-    box list:allProjects.
+    box list:listOfProjects.
     box okAction:[:sel | newProject := sel].
     box initialText:initialTextOrNil.
     box entryCompletionBlock:(DoWhatIMeanSupport packageNameEntryCompletionBlock).
@@ -5332,6 +5330,19 @@
     "Created: / 07-09-2006 / 11:40:17 / cg"
 !
 
+requestProject:title initialAnswer:initialTextOrNil suggestions:suggestions
+    "Ask for a project (package-id)"
+
+    |allProjects|
+
+    allProjects := Smalltalk allProjectIDs.
+    ^ self
+        requestProject:title 
+        from:allProjects
+        initialAnswer:initialTextOrNil 
+        suggestions:suggestions
+!
+
 requestSelector:aString initialAnswer:initial
     "launch a Dialog, which allows user to enter a method selector.
      Return the entered string (may be empty string) or nil (if cancel was pressed).
@@ -8734,7 +8745,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.274 2008-09-04 09:57:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.275 2008-10-18 09:50:55 cg Exp $'
 ! !
 
 DialogBox initialize!