diff --git a/src/TNaming/TNaming.cxx b/src/TNaming/TNaming.cxx
index 9b31c8f46d..685a606bc4 100644
--- a/src/TNaming/TNaming.cxx
+++ b/src/TNaming/TNaming.cxx
@@ -398,7 +398,7 @@ void TNaming::Displace (const TDF_Label& L,
     }
   }
   for (TDF_ChildIterator ciL(L); ciL.More(); ciL.Next()) {
-    Displace (ciL.Value(),Loc);
+    Displace (ciL.Value(), Loc, WithOld);
   }
 }