diff --git a/coregrind/m_debuginfo/debuginfo.c b/coregrind/m_debuginfo/debuginfo.c
index a37c228..6e1cacf 100644
--- a/coregrind/m_debuginfo/debuginfo.c
+++ b/coregrind/m_debuginfo/debuginfo.c
@@ -229,7 +229,8 @@
       ML_(dinfo_free)(di->symtab);
    }
 
-   VG_(deleteDedupPA) (di->strpool);
+   if (di->strpool)
+      VG_(deleteDedupPA) (di->strpool);
 
    /* Delete the two admin arrays.  These lists exist primarily so
       that we can visit each object exactly once when we need to