anchor.diff:          ST = format_type( T ),
           io:format( "~s~n"++?BLU( ": " )++?BBLU( "~s" )++"~n", [SE, ST] );
   
  -      ( Reply ) ->
  +      ( Reply = {error, _Stage, _Reason} ) ->
           S = format_error( Reply ),
           io:format( "~s~n", [S] )
   
  
positive.code:                 query_lst = [Q1|QLst],
                  reply_lst = ReplyLst } = ShellState,
  
    E = cuneiform_parse:create_closure( DefLst, Q1 ),
  
    ShellState1 = 
      case cuneiform_type:type( E ) of
  
        {ok, _} ->
  
          ReplyLst1 = ReplyLst++[{query, E}],
  
          ShellState#shell_state{ query_lst = QLst,
                                  reply_lst = ReplyLst1 };
  
negative.code:                 def_lst   = DefLst,
                  reply_lst = ReplyLst } = ShellState,
  
    {assign, _, _, E} = D1,
  
    % TODO: catch error
    {ok, C} = cuneiform_lang:create_closure( DefLst++[D1], E ),
  
    ShellState1 = 
      case cuneiform_type:type( C ) of
  
        {ok, T} ->
  
  