# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1248890522 -7200
# Node ID 4e663bc643647f67ac34e50aff7a5b08d906d384
# Parent  b55aeaecefda58d405ffd6206a1c3b685f6de030
changed #requestPackage

diff -r b55aeaecefda -r 4e663bc64364 Tools__InternationalLanguageTranslationEditor.st
--- 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.