scheme compatability

Fixed the code so that it works in chicken scheme