1 files changed, 4 insertions, 1 deletions
diff --git a/src/uicmd.cc b/src/uicmd.cc
index eb90f64f..e9774c77 100644
--- a/src/uicmd.cc
+++ b/src/uicmd.cc
@@ -225,7 +225,10 @@ class CustTabGroup : public fltk::TabGroup {
 public:
    CustTabGroup (int x, int y, int ww, int wh, const char *lbl=0) :
       TabGroup(x,y,ww,wh,lbl) {
-         this->pager(new CustShrinkTabPager());
+         // The parameter pager is cloned, so free it.
+         CustShrinkTabPager *cp = new CustShrinkTabPager();
+         this->pager(cp);
+         delete cp;
          toolTip = new Tooltip;
          tooltipEnabled = false;
          buttonPushed = false;