--- a/Tools__InternationalLanguageTranslationEditor.st	Tue Apr 19 16:31:06 2016 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Thu Apr 21 19:34:54 2016 +0200
@@ -1696,17 +1696,18 @@
     lastExtractedProject := LastExtractedProject := projectID.
 
     newTranslations := Set new.
-
-    Smalltalk allClassesDo:[:eachClass |
-        eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
-            eachMethod package == projectID ifTrue:[ 
-                newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
-            ]
+    self withWaitCursorDo:[
+        Smalltalk allClassesDo:[:eachClass |
+            eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
+                eachMethod package == projectID ifTrue:[ 
+                    newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
+                ]
+            ].
         ].
+
+        self addAllTranslations:newTranslations.
     ].
-
-    self addAllTranslations:newTranslations.
-
+    
     "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !