added link procedure; procedures using default-* should use current-* instead