anchor.diff:  	case SnapshotDict of
   	[]->
   		{ok,[]};
  -	[H|T]->
  -		{CommitTime, Snapshot} = lists:last(orddict:filter(fun(Key, Value) -> 
  -				{is_snapshot_in_snapshot(Key, SnapshotTime),Value} end, [H|T])),
  +	[{_, [H|T]}]->
  +		lager:info("These are the stored Snapshots: ~p",[H|T]),
  +		{CommitTime, Snapshot} = lists:last(orddict:filter(fun(Key, _Value) -> 
  +				belongs_to_snapshot(Key, SnapshotTime, materialised_version) end, [H|T])),
   		{ok, {CommitTime, Snapshot}}
   	end.
   
  
positive.code: %%             CommitTime = local commit time of this Snapshot at DC
  %%             SnapshotTime = Orddict of [{Dc, Ts}]
  %%      Outptut: true or false
  -spec is_snapshot_in_snapshot({Dc::term(),CommitTime::non_neg_integer()},
                          SnapshotTime::vectorclock:vectorclock()) -> boolean().
  is_snapshot_in_snapshot({Dc, CommitTime}, SnapshotTime) ->
      case vectorclock:get_clock_of_dc(Dc, SnapshotTime) of
          {ok, Ts} ->
              lager:info("CommitTime: ~p SnapshotTime: ~p Result: ~p",
  
negative.code: 	case OpsDict of
  	[]->
  		{ok, []};
  	[{_, [H|T]}]->
  		lager:info("operations that are in the operation store are: ~p",[[H|T]]),
  		lager:info("SnapshotTime=~p",[SnapshotTime]),
      	FilteredOps = orddict:filter(fun(Key, _Value) -> belongs_to_snapshot(Key, SnapshotTime, operation) end, [H|T]),
      	{ok,[Op || { _Key, Op} <- FilteredOps]}
      end.
  
  