The node you are looking for is at
gforth--f-zero-not-equals
.