src/pocket39.c buggy (implementing length)