anchor.diff:  %% A simplified version of filename:absname/1
   absname(Name) ->
       Name2 = normalize(Name, []),
  -    case pathtype(Name2) of
  -	absolute ->
  -	    Name2;
  -	relative ->
  -	    case prim_file:get_cwd() of
  -		{ok, Cwd} ->
  -		    Cwd ++ "/" ++ Name2;
  -		{error, _} -> 
  -		    Name2
  -	    end;
  -	volumerelative ->
  -	    case prim_file:get_cwd() of
  -		{ok, Cwd} ->
  -		    absname_vr(Name2, Cwd);
  -		{error, _} -> 
  -		    Name2
  -	    end
  -    end.
  +    Name3 =
  +	case pathtype(Name2) of
  +	    absolute ->
  +		Name2;
  +	    relative ->
  +		case prim_file:get_cwd() of
  +		    {ok, Cwd} ->
  +			Cwd ++ "/" ++ Name2;
  +		    {error, _} ->
  +			Name2
  +		end;
  +	    volumerelative ->
  +		case prim_file:get_cwd() of
  +		    {ok, Cwd} ->
  +			absname_vr(Name2, Cwd);
  +		    {error, _} ->
  +			Name2
  +		end
  +	end,
  +    path_flatten(Name3).
   
   %% Assumes normalized name
   absname_vr([$/ | NameRest], [Drive, $\: | _]) ->
  
positive.code: 	[] ->
      {Devicep, [], FirstComp};
  	[$/ |T ] ->
  	    {Devicep, [$/ | T], FirstComp};
  	[$\\ | T] ->
  	    {Devicep, [$/ | T], FirstComp};
  	[$: | T]->
  	    {device, T, [$: | FirstComp]};
  
negative.code: 	    win32_pathtype([Char | List++Rest]);
  	[$/, $/|_] -> 
  	    absolute;
  	[$/|_] -> 
  	    volumerelative;
  	[C1, C2, List | Rest] when is_list(List) ->
  	    win32_pathtype([C1, C2|List ++ Rest]);
  	[_Letter, $:, $/|_] -> 
  	    absolute;
  	[_Letter, $:|_] -> 
  	    volumerelative;
  