Search a text in stored procedures

Create Proc dbo.abc as
begin
select getdate() as 'Today'
end

SELECT OBJECT_NAME(id)
FROM SYSCOMMENTS
WHERE [text] LIKE '%Today%'
AND OBJECTPROPERTY(id, 'IsProcedure') = 1
GROUP BY OBJECT_NAME(id)