$SAVE NOLIST

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

DECLARE object        TOKEN,
        except$ptr    POINTER;

END rq$enable$deletion;

$RESTORE