VertexReplace destroys edge labels

Question

Bug introduced in 10.0 or earlier and fixed in 12.0

---

g = 
  Graph[{2 \[DirectedEdge] 3}, 
    VertexLabels -> "Name", EdgeLabels -> {2 \[DirectedEdge] 3 -> "hallo"}]

g has an edge pointing towards 3 from 2 labeled with "hallo"

g1 = VertexReplace[g, Thread[VertexList[g] -> ToString /@ VertexList[g]]];

g1 doesn't have that edge label because the edge labels 2 -> 3 -> "hallo" is still being identified using numerical $2$ and $3$.

Also I cannot save g1 as a .png file: if I right click, I get this message:

Set::write: Tag Inherited in Inherited[State] is Protected.

I am using Mathematica 11.0, My vertices are actually tuples like the following

g = 
  Graph[{{1,2} \[DirectedEdge] {2,3}}, 
    VertexLabels -> "Name", EdgeLabels -> {{1,2} \[DirectedEdge] {2,3} -> "hallo"}]

update with @m_goldberg's solution

In[15]:= Fold[
 SetProperty[{#1, #2}, VertexLabels -> ToString[#2]] &, g, 
 VertexList[g]]

During evaluation of In[15]:= SetProperty::pvobj: $Failed is not an object with properties.

Out[15]= SetProperty[{$Failed, {2, 3}}, VertexLabels -> "{2, 3}"]

Answer 1

It is better to use SetProperty and Fold for what you want to do.

g = 
  Graph[{2 \[DirectedEdge] 3},
    VertexLabels -> "Name",
    EdgeLabels -> {2 \[DirectedEdge] 3 -> Style[" hello ", Background -> White]}]

Fold[SetProperty[{#1, #2}, VertexLabels -> ToString[#2] <> "*"] &, g, VertexList[g]]