fixed error on procedure call