anchor.diff:  	{{unix,sunos},OsVersion} when OsVersion < {5,5,1} ->
   	    {skip,"Only supported on Win32, Unix or SunOS >= 5.5.1"};
   	{{unix,_},_} ->
  -	    N = unix_free(proplists:get_value(priv_dir, Config)),
  -	    io:format("Free disk: ~w KByte~n", [N]),
  -	    if N < 5 bsl 20 ->
  +	    DiscFree = unix_free(proplists:get_value(priv_dir, Config)),
  +            MemFree = free_memory(),
  +	    io:format("Free disk: ~w KByte~n", [DiscFree]),
  +	    io:format("Free mem: ~w MByte~n", [MemFree]),
  +	    if DiscFree < 5 bsl 20; MemFree < 5 bsl 10 ->
   		    %% Less than 5 GByte free
  -		    {skip,"Less than 5 GByte free disk"};
  +		    {skip,"Less than 5 GByte free disk/mem"};
   	       true ->
   		    do_run_large_file_test(Config, Run, Name)
   	    end;
  
positive.code:      {links, [],
        [make_link_a, make_link_b, read_link_info_for_non_link,
         symlinks_a, symlinks_b, list_dir_error]}].
  
  init_per_group(_GroupName, Config) ->
      Config.
  
negative.code: %%
  -module(prim_file_SUITE).
  -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
  	 init_per_group/2,end_per_group/2, init_per_testcase/2, end_per_testcase/2,
  	 read_write_file/1, free_memory/0]).
  -export([cur_dir_0a/1, cur_dir_0b/1, 
  	 cur_dir_1a/1, cur_dir_1b/1, 
  	 make_del_dir_a/1, make_del_dir_b/1,
  