anchor.diff:  			  end
   		  end, Tags),
       GlList = gb_sets:to_list(Gls),
  -    [test_server_gl:stop(GL) || GL <- GlList],
  +    _ = [test_server_gl:stop(GL) || GL <- GlList],
       timer:sleep(100),
       case lists:filter(fun(GlPid) -> is_process_alive(GlPid) end, GlList) of
   	[] ->
   	    ok;
   	_ ->
   	    timer:sleep(2000),
  -	    [exit(GL, kill) || GL <- GlList]
  +	    [exit(GL, kill) || GL <- GlList],
  +	    ok
       end,
       Empty = gb_trees:empty(),
       {ok,Shared} = test_server_gl:start_link(),
  
positive.code:     InUse = ordsets:from_list(InUse0),
      Gls = gb_sets:to_list(Gls0),
      NotUsed = ordsets:subtract(Gls, InUse),
      [test_server_gl:stop(Pid) || Pid <- NotUsed],
      ok.
  
negative.code: 				   none ->
  				       {Fds,Tags};
  				   {value,Fd} ->
  				       _ = file:close(Fd),
  				       {gb_trees:delete(Tag, Fds),
  					lists:delete(Tag, Tags)}
  			       end
  