anchor.diff:          {ok, _} ->
           	case ets:lookup(OpsCache, Key) of
           	[]->
  -        		lager:info("storing the first operation for the key"),
  +        		%lager:info("storing the first operation for the key"),
           		OpsDict=orddict:new();
           	[{_, OpsDict}]->
  -        		lager:info("materialiser_vnode: OpsDict= ~p",[OpsDict])
  +        		OpsDict
           	end,
  -        	lager:info("operation being stored: ~p", [DownstreamOp]),
  +        	%lager:info("operation being stored: ~p", [DownstreamOp]),
           	OpsDict1=orddict:append(DownstreamOp#clocksi_payload.commit_time, DownstreamOp, OpsDict),
  -        	lager:info("materialiser_vnode: OpsDict= ~p",[OpsDict1]),
  +        	%lager:info("materialiser_vnode: OpsDict= ~p",[OpsDict1]),
               true = ets:insert(OpsCache, {Key, ops_gc(OpsDict1)}),
               {reply, ok, State};
           {error, Reason} ->
  
positive.code: 	[]->
  		{ok,[]};
  	[H|T]->
  		lager:info("materialiser_vnode: These are the stored Snapshots: ~p",[H|T]),
  		case orddict:filter(fun(Key, _Value) -> 
  				belongs_to_snapshot(Key, SnapshotTime) end, [H|T]) of 
  			[]->
  
negative.code: snapshot_insert_gc(Key, SnapshotDict, OpsDict, SnapshotCache, OpsCache)-> 
  	case (orddict:size(SnapshotDict))==?SNAPSHOT_THRESHOLD of 
  	true ->
  		%lager:info("pruning the following snapshot cache: ~p",[SnapshotDict]),
  		PrunedSnapshots=orddict:from_list(lists:sublist(orddict:to_list(SnapshotDict), 1+?SNAPSHOT_THRESHOLD-?SNAPSHOT_MIN, ?SNAPSHOT_MIN)),
  		%lager:info("Result is: ~p",[PrunedSnapshots]),
  		FirstOp=lists:nth(1, PrunedSnapshots),
  		{CommitTime, _S} = FirstOp,
  		%lager:info("pruning the following OPERATIONS cache before commit time: ~p ~n ~p",[CommitTime,OpsDict]),
  		PrunedOps=prune_ops(OpsDict, CommitTime),
  		%lager:info("Result is: ~p",[PrunedOps]),
  		ets:insert(SnapshotCache, {Key, PrunedSnapshots}),
          ets:insert(OpsCache, {Key, PrunedOps}),
          true;
  	false ->
  		ets:insert(SnapshotCache, {Key, SnapshotDict}),
  		%lager:info("NO NEED OF pruning the following snapshot cache: ~p",[SnapshotDict]),
  		false
  	end.
  	
  %% @doc Remove from OpsDict all operations that have committed before Threshold. 	
  prune_ops(OpsDict, Threshold)->
  	orddict:filter(fun(_Key, Value) -> 
  				%lager:info("This is the operation to analyse: ~n ~p", [Value]),
  				(belongs_to_snapshot(Threshold,(lists:last(Value))#clocksi_payload.snapshot_time)) end, OpsDict).
  
  
  