Procedure fix

Procedure Typeblocking fix