Nice finding! Good to know...
The script could be simplified (2005 and 2008):
SELECTOBJECT_NAME(object_id) AS proc_name
,object_id
,definition
FROMsys.sql_modules
WHEREPATINDEX('%CREATE%PROCEDURE%',definition) > 0
ANDPATINDEX('%' + OBJECT_NAME(object_id) + '%', definition) = 0
ORDERBY OBJECT_NAME(object_id);