[CM] s7 ((*repl* 'restore-repl)) breaks the repl

[bil at ccrma.Stanford.EDU]

Thanks for the bug report.  restore-repl obviously wandered
out of sync with save-repl at some point.  I think this
will work:

       (define* (restore-repl (file "save.repl"))
	(set! (*repl* 'top-level-let) (sublet (rootlet)))
	(load file))