Split prog-curr out of prog-history.