Fix an issue similar to #76 but with END-PERFORM instead of END-IF