anchor.diff:  	    Pid ! {self(), Res},
   	    session_loop(Sess);
   	{Pid,select_session,PKey} ->
  -	    Sel = fun({{Head, _},Session}, Acc) when Head =:= PKey -> 
  -			  [Session|Acc];
  +	    Sel = fun({{PKey0, Id},Session}, Acc) when PKey == PKey0 -> 
  +			  [[Id, Session]|Acc];
   		     (_,Acc) -> 
   			  Acc
  -		  end,
  -	    Pid ! {self(), lists:foldl(Sel, [], Sess)},
  +		  end, 
  +	    Sessions = lists:foldl(Sel, [], Sess),
  +	    Pid ! {self(), Sessions},
   	    session_loop(Sess)
       end.
   	    
  +
   erlang_ssl_receive(Socket, Data) ->
       receive
   	{ssl, Socket, Data} ->
  
positive.code:     end.
  
  foldl(Fun, Acc, Cache) -> 
      io:format("~p~n",[?LINE]),
      case session_cb() of
  	list ->
  	    Cache ! {self(),foldl,Fun,Acc},
  
negative.code:     end_per_testcase(default_action, Config);
  end_per_testcase(session_cache_process_mnesia, Config) ->
      application:unset_env(ssl, session_cb),
      application:unset_env(ssl, session_cb_init_args),
      mnesia:stop(),
      ssl:stop(),
      ssl:start(),
      end_per_testcase(default_action, Config);
  end_per_testcase(reuse_session_expired, Config) ->
      application:unset_env(ssl, session_lifetime),
  