--- a/Tools__InternationalLanguageTranslationEditor.st	Thu Jul 09 20:07:35 2009 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Wed Jul 29 20:02:02 2009 +0200
@@ -1486,17 +1486,18 @@
 
     allProjects := Smalltalk allProjectIDs.
     projectsWithResources := allProjects
-				select:[:pID |
-				    |dir|
-				    dir := Smalltalk projectDirectoryForPackage:pID.
-				    (dir asFilename construct:'resources') exists
-				].
+                                select:[:pID |
+                                    |dir|
+                                    dir := Smalltalk projectDirectoryForPackage:pID.
+                                    dir notNil and:[
+                                    (dir asFilename construct:'resources') exists]
+                                ].
 
     package := Dialog
-	requestProject:(resources string:'Name of Package:')
-	from:projectsWithResources
-	initialAnswer:LastProject
-	suggestions:nil.
+        requestProject:(resources string:'Name of Package:')
+        from:projectsWithResources
+        initialAnswer:LastProject
+        suggestions:nil.
 
     package isEmptyOrNil ifTrue:[^ nil ].
     LastProject := package.