1287,1288c1287
<     while ( $preamble =~ m/\DeclareMathOperator\s*\{\\(\w*?)\}/s) {
<       $to_test=$1;
---
>     foreach $to_test ( $preamble =~ m/\DeclareMathOperator\s*\{\\(\w*?)\}/s) {