anchor.diff:      NewBlocked = ?SETS:union(Blocked, BlockedOracle),
       NewContext = RunContext#context{active = NewActive, blocked = NewBlocked},
       case Error of
  -	?undef ->
  +	?ERROR_UNDEF ->
   	    case ?SETS:size(NewActive) of
   		0 ->
   		    case ?SETS:size(NewBlocked) of
  
positive.code: %%%----------------------------------------------------------------------
  
  -define(INFINITY, 1000000).
  -define(undef, undef).
  
  %%%----------------------------------------------------------------------
  %%% Records
  
negative.code:                   blocked        :: ?SET_TYPE(lid:lid()),
  		  current        :: lid:lid(),
  		  details        :: boolean(),
                    error          :: ?ERROR_UNDEF | error:error(),
                    state          :: state:state()}).
  
  %% Internal message format
  