anchor.diff:        {StorageId, #storage_helper_info{name = "DirectIO", init_args = [Root]}} end, Record#clientstorageinfo.storage_info),
       NewFuseSessionDoc = FuseSessionDoc#veil_document{record = FuseSession#fuse_session{client_storage_info = ClientStorageInfo}},
       {ok, _} = dao_lib:apply(dao_cluster, save_fuse_session, [NewFuseSessionDoc], ProtocolVersion),
  -    lager:info("Client storage info saved in session."),
  +    ?info("Client storage info saved in session."),
       #atom{value = ?VOK}
     catch
  -    _:_ -> #atom{value = ?VEREMOTEIO}
  +    _:_ ->
  +      ?error("Error while saving client storage info in client session."),
  +      #atom{value = ?VEREMOTEIO}
     end.
   
   %% save_file_descriptor/3
  
positive.code:     % Delete storage test file after 'delete_storage_test_file_time' seconds
      spawn(fun() ->
        timer:sleep(DeleteStorageTestFileTime * 1000),
        storage_files_manager:delete(StorageHelperInfo, Path)
      end),
      Length = storage_files_manager:write(StorageHelperInfo, Path, Text),
      #createstoragetestfileresponse{answer = true, relative_path = Path, text = Text}
    catch
      _:_ -> #createstoragetestfileresponse{answer = false}
    end;
  
  handle_fuse_message(ProtocolVersion, Record, _FuseID) when is_record(Record, storagetestfilemodifiedrequest) ->
  
negative.code:     StorageHelperInfo = fslogic_storage:get_sh_for_fuse(?CLUSTER_FUSE_ID, StorageInfo),
      {ok, Bytes} = storage_files_manager:read(StorageHelperInfo, Path, 0, length(Text)),
      Text = binary_to_list(Bytes),
      case storage_files_manager:delete(StorageHelperInfo, Path) of
        ok -> ok;
        {_, Error} -> ?error("Error while deleting  storage test file: ~p", [Error])
      end,
      #storagetestfilemodifiedresponse{answer = true}
    catch
      _:_ ->
        ?error("Error while checking storage test file modification."),
        #storagetestfilemodifiedresponse{answer = false}
    end;
  
  handle_fuse_message(ProtocolVersion, Record, FuseId) when is_record(Record, clientstorageinfo) ->
  