fix PARTITION PROCEDURE