--- a/Tools__InternationalLanguageTranslationEditor.st	Mon Mar 06 19:58:27 2006 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Mon Mar 06 20:09:43 2006 +0100
@@ -1424,13 +1424,18 @@
 !InternationalLanguageTranslationEditor::UISpecVisitor methodsFor:'visiting'!
 
 visitObject:anObject with:aParameter
+    |l|
+
     (anObject isKindOf:UISpecification) ifTrue:[
         (anObject respondsTo:#translateLabel) ifTrue:[
             anObject translateLabel == true ifTrue:[
                 translatedLabels isNil ifTrue:[
                     translatedLabels := Set new.
                 ].
-                translatedLabels add:anObject label.
+                l := anObject perform:#label ifNotUnderstood:nil.
+                l notNil ifTrue:[
+                    translatedLabels add:l.
+                ].
             ].
         ].
     ].