Fixed forth implementation to match the spec.