--- a/Tools__InternationalLanguageTranslationEditor.st	Wed Oct 15 17:55:59 2008 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Sat Oct 18 11:51:12 2008 +0200
@@ -1469,10 +1469,19 @@
 !
 
 requestPackage
-    |package|
+    |package allProjects projectsWithResources|
+
+    allProjects := Smalltalk allProjectIDs.
+    projectsWithResources := allProjects
+                                select:[:pID |
+                                    |dir|    
+                                    dir := Smalltalk projectDirectoryForPackage:pID.    
+                                    (dir asFilename construct:'resources') exists    
+                                ].
 
     package := Dialog
         requestProject:(resources string:'Name of Package:') 
+        from:projectsWithResources
         initialAnswer:LastProject 
         suggestions:nil.