--- a/Core/DicomFormat/DicomMap.cpp	Fri Oct 25 18:09:42 2019 +0200
+++ b/Core/DicomFormat/DicomMap.cpp	Sat Oct 26 15:59:59 2019 +0200
@@ -1294,6 +1294,29 @@
   }
 
 
+  void DicomMap::RemoveBinaryTags()
+  {
+    Map kept;
+
+    for (Map::iterator it = map_.begin(); it != map_.end(); ++it)
+    {
+      assert(it->second != NULL);
+
+      if (!it->second->IsBinary() &&
+          !it->second->IsNull())
+      {
+        kept[it->first] = it->second;
+      }
+      else
+      {
+        delete it->second;
+      }
+    }
+
+    map_ = kept;
+  }
+
+
   void DicomMap::Print(FILE* fp) const
   {
     DicomArray a(*this);