* DEFAULT-ORDER ( -- ) nail the current search >ORDER so that it will even survive a trap-condition. This default-order can be explicitly loaded with >RESET-ORDER
DEFAULT-ORDER
( -- )
>ORDER
>RESET-ORDER
search ordinary primitive