Ik doe dit soort dingen nogal wat (meestal genereer ik insert/update statements).
U hoeft alleen de vervangfunctie te gebruiken om alle ' in '' . d.w.z. verander het in:
str_comment:='COMMENT ON COLUMN '||rec.table_name||'.'||rec.column_name
||' IS '''||REPLACE( rec.description,'''','''''')||'''; ' ;