Fixed position of verbatim_written in mpxout.w

source/texk/web2c/mplibdir/mpxout.w

@@ -656,11 +656,11 @@ static void mpx_mpto(MPX mpx, char *tmpname, char *mptexpre) {
          mpx_copy_mpto(mpx, outfile, FIRST_VERBATIM_TEX);
       else
          mpx_copy_mpto(mpx, outfile, VERBATIM_TEX);
+      verbatim_written = 1;
       fprintf(outfile,"%s", mpx_postverb[mode]);
     } else {
       mpx_error(mpx,"unmatched etex");
     }
-    verbatim_written = 1;
   }
 }