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