>That's because your Forth function is wrong. Yeah, you're right. In fact I had to stare at it for a minute before I saw it.
http://www.freechess.org