Use CallRecursiveRemoveIfNeeded in ~TNamed.

core/base/inc/TNamed.h

@@ -38,7 +38,7 @@ public:
    TNamed(const TString &name, const TString &title) : fName(name), fTitle(title) { }
    TNamed(const TNamed &named);
    TNamed& operator=(const TNamed& rhs);
-   virtual ~TNamed() { }
+   virtual ~TNamed();
    virtual void     Clear(Option_t *option ="");
    virtual TObject *Clone(const char *newname="") const;
    virtual Int_t    Compare(const TObject *obj) const;

core/base/src/TNamed.cxx

@@ -36,6 +36,15 @@ TNamed::TNamed(const TNamed &named) : TObject(named),fName(named.fName),fTitle(n
 {
 }
 
+////////////////////////////////////////////////////////////////////////////////
+/// TNamed destructor.
+
+TNamed::~TNamed()
+{
+   // Required since we overload TObject::Hash.
+   ROOT::CallRecursiveRemoveIfNeeded(*this);
+}
+
 ////////////////////////////////////////////////////////////////////////////////
 /// TNamed assignment operator.