add PROCEDURE DeJong