I was trying to get back something like $RandomState, so I could get random numbers in a predictable fashion. Now I'm using the quite horrible:
RandomNumberSequence[seed_, spec_, n_] := (SeedRandom[seed];
Table[RandomInteger[spec], {n - 1}]; RandomInteger[spec])