$NIP $HOME $OVER
$NIP
* $NIP ($: a$ b$ -- b$ )

Drop the next to top item from the string stack.
"string-nip" 
NOTE:  Because of essential string  space bookkeeping, the

system level implementation can be little more efficient than

the high-level definition:

: $NIP  $SWAP $DROP ;


 
 dstrings   ordinary primitive