Random number generation, and random seeds.

I would like to generate pseudo-random numbers in maxima, from a
definite seed. That is to say, I'd like to issue a command

initialize-random-seed(n)

where n is some integer, and be confident that the sequence
subsequently generated from the random function would be fixed.

I've looked at the initialize-random-seed macro in maxmac.lisp,
line 594, but this seems to have no effect.

ie
(%i1) to_lisp();
Type (to-maxima) to restart

MAXIMA> (initialize-random-seed)
NIL
MAXIMA> ($random 30)
10
MAXIMA> (initialize-random-seed)
NIL
MAXIMA> ($random 30)
25
MAXIMA>

Also the gauss function in the bessel package didn't help me
(maybe I've missed something) with this problem.

Can I assert more control over the random seed?  If so, how?

Many thanks
Chris

FYI, Windows:
Maxima 5.9.0.9beta2 http://maxima.sourceforge.net
Using Lisp Kyoto Common Lisp GCL 2.6.3 (aka GCL)