* test/test.scm:  fix test