Wouldn't it perhaps be better to make "default-random-source"
a procedure? This would provide some error-checking in case
one assigns a new value. It could behave just like a "parameter"
procedure, so

(default-random-source)

returns the default random source and

(default-random-source <source>)

sets it to a new value.

felix