diff --git a/gedcom b/gedcom
index aaca8e8..0c2f636 100755
--- a/gedcom
+++ b/gedcom
@@ -10689,6 +10689,10 @@ sub get_all_occupations
 					$occupation = 'Professeur';
 				}
 				$occupation =~ s/retired/\N{U+00E0} la retrainte/i;
+			} elsif($language eq 'German') {
+				if($occupation eq 'Teacher') {
+					$occupation = (($person->sex() eq 'M') ? 'Lehrer' : 'Lehrerin');
+				}
 			}
 			if($occupation =~ /works? (on|for) (.+)/i) {
 				$occupation = "$2 worker";