diff --git a/tools/genlang b/tools/genlang
index 6f00365716..07eb9f1fb9 100755
--- a/tools/genlang
+++ b/tools/genlang
@@ -543,6 +543,7 @@ while(<LANG>) {
                         print "### $idstr: The phrase is not used. Skipped\n";
                     }
                 }
+                undef @phrase;
             } # end of </phrase>
             elsif($part eq "/options") {
                 # closing the options
@@ -551,8 +552,6 @@ while(<LANG>) {
                 }
             } # end of </options>
 
-           undef @phrase;
-
             # starts with a slash, this _ends_ this section
             $m = pop @m; # get back old value, the previous level's tag
             next;