replace the order list with the system default list
: forth get-order swap drop forth-wordlist swap set-order ;