{$IFNOTEXISTS SELECT 1 FROM RDB$DATABASE WHERE SUBSTRING(RDB$GET_CONTEXT('SYSTEM', 'ENGINE_VERSION') FROM 1 FOR 1) IN ('2', '3', '4', '5')}

UPDATE RDB$PROCEDURES SET RDB$PROCEDURE_SOURCE = NULL;
COMMIT WORK;

{$ENDIF}
