$SAVE NOLIST

rq$disable$deletion:  PROCEDURE( object,
                                 except$ptr ) EXTERNAL;

DECLARE object        TOKEN,
        except$ptr    POINTER;

END rq$disable$deletion;

$RESTORE