anchor.diff:  -spec free_pc(Path :: string()) -> {ok, float()} | {error, term()}.
   free_pc(Path) ->
       case statfs(Path) of
  -	{ok, #statfs{frsize=Frsize, blocks=Blocks, bsize=Bsize, bfree=Bfree}} ->
  -	    Free = (Bsize*Bfree),
  +	{ok, #statfs{frsize=Frsize, blocks=Blocks, bfree=Bfree}} ->
  +	    Free = (Frsize*Bfree),
   	    case (Blocks*Frsize) of
   		0 ->
   		    {ok, 0.0};
  
positive.code: %%% Return list of pretty mounts figures (sizes in kB)
  %%%
  df_pretty() ->
      lists:map(fun ({#mount{fsname=Fsname, dir=Dir, type=Type}, 
  		    #statfs{bsize=Bsize, blocks=Blocks, bfree=Bfree}}) ->
  		      Total = round(Bsize * Blocks / 1024),
  		      Used = round(Bsize * (Blocks - Bfree) / 1024),
  		      Free = Bsize * Bfree,
  		      Pc = case Total of
  			       0 -> 0.0;
  			       _ -> Used / Total
  
negative.code: -spec free(Path :: string()) -> {ok, integer()} | {error, term()}.
  free(Path) ->
      case statfs(Path) of
  	{ok, #statfs{frsize=Frsize, bfree=Bfree}} ->
  	    {ok, Frsize*Bfree};
  	{error, Err} ->
  	    {error, Err}
      end.
  