anchor.diff:       "directory). [ticket OTP-1209]."];
   c_4(suite) ->
       [];
  -c_4(Config) when list(Config) ->
  +c_4(Config) when is_list(Config) ->
       ?line R = filename:join(?config(data_dir, Config), "m"),
       ?line W = ?config(priv_dir, Config),
       ?line file:set_cwd(W),
  
positive.code:     ["Checks that c:c works also with option 'outdir' [ticket OTP-1209]."];
  c_1(suite) ->
      [];
  c_1(Config) when list(Config) ->
      ?line R = filename:join(?config(data_dir, Config), "m.erl"),
      ?line W = ?config(priv_dir, Config),
      ?line Result = c(R,[{outdir,W}]),
  
negative.code:     ["Checks that c:memory/[0,1] returns consistent results."];
  memory(suite) ->
      [];
  memory(Config) when is_list(Config) ->
      try
  	?line ML = c:memory(),
  	?line T =  mget(total, ML),
  