store-procedure bad-warning
    goto-beginning-of-file
    write-message "[bad warning here]"
    ~force search-forward "^xyzzy"
    ~if &not $status
        ~break
    ~endif
~endm