anchor.diff:                      , driver = Driver
                       , parameters = Parameters
                       , events = Events
  -                    , state = starting },
  +                    , state = starting
  +                    , started_by = From },
       Devices = orddict:store( DeviceId, Device, State#state.devices ),
       NewState = State#state{ devices = Devices },
  -    % FIXME - reply when the device really starts
  -    { reply, { ok, DeviceId }, NewState };
  +    { noreply, NewState };
   
   handle_call( { stop_device, DeviceId }, _From, State ) ->
       case orddict:find( DeviceId, State#state.devices ) of
  
positive.code:     , parameters :: [ binary() ]
      , events     :: [ binary() ]
      , state      :: starting | running | stopping | crashed
      } ).
  
  -record( state,
  
negative.code:     { ok, #state{} }.
  
  
  handle_call( { start_device, Configuration }, From, State ) ->
      Driver = proplists:get_value(driver, Configuration),
      Parameters = proplists:get_value(parameters, Configuration),
      Events = proplists:get_value(events, Configuration, []),
  