src/pocket39.c (testing to support UNISON)