* test/test.scm: fix test