Corrigir as sequences do Postgres

CREATE OR REPLACE FUNCTION "public"."fixsequence"()
  RETURNS "pg_catalog"."int2" AS $BODY$declare v_reg record;
v_sql varchar;
BEGIN
	FOR v_reg IN (
		SELECT t.table_name
		FROM information_schema.TABLES t
		WHERE t.table_schema =  'public'
	) loop
  		v_sql := 'SELECT setval(''' || v_reg.table_name || '_id_seq'', (SELECT max(id)+1 FROM ' || v_reg.table_name || '))';
		execute v_sql;
	end loop;
	RETURN 1;
END
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;