diff --git a/plugins/CMakeLists.txt b/plugins/CMakeLists.txt
index 638fed3fd..ee4bd9390 100644
--- a/plugins/CMakeLists.txt
+++ b/plugins/CMakeLists.txt
@@ -155,6 +155,7 @@ if (BUILD_SUPPORTED)
     DFHACK_PLUGIN(mousequery mousequery.cpp)
     DFHACK_PLUGIN(autotrade autotrade.cpp)
     DFHACK_PLUGIN(stocks stocks.cpp)
+    DFHACK_PLUGIN(cleanconst cleanconst.cpp)
 endif()
 
 
diff --git a/plugins/cleanconst.cpp b/plugins/cleanconst.cpp
new file mode 100644
index 000000000..7d9fa69d5
--- /dev/null
+++ b/plugins/cleanconst.cpp
@@ -0,0 +1,90 @@
+// Destroys items being used as part of constructions
+// and flags the constructions to recreate their components upon disassembly
+using namespace std;
+
+#include "Core.h"
+#include "Console.h"
+#include "Export.h"
+#include "PluginManager.h"
+#include "modules/Maps.h"
+
+#include "DataDefs.h"
+#include "df/item.h"
+#include "df/world.h"
+#include "df/construction.h"
+#include "df/map_block.h"
+
+using namespace DFHack;
+using namespace df::enums;
+
+using df::global::world;
+
+DFHACK_PLUGIN("cleanconst");
+
+command_result df_cleanconst(color_ostream &out, vector <string> & parameters);
+
+DFhackCExport command_result plugin_init ( color_ostream &out, vector <PluginCommand> &commands)
+{
+    commands.push_back(PluginCommand(
+        "cleanconst", "Cleans up construction materials.",
+        df_cleanconst, false,
+        "  This utility alters all constructions on the map so that they spawn their.\n"
+        "  building component when they are disassembled, allowing their actual\n"
+        "  build items to be safely deleted.\n"
+    ));
+    return CR_OK;
+}
+
+DFhackCExport command_result plugin_shutdown ( color_ostream &out )
+{
+    return CR_OK;
+}
+
+command_result df_cleanconst(color_ostream &out, vector <string> & parameters)
+{
+    CoreSuspender suspend;
+
+    if (!Maps::IsValid())
+    {
+        out.printerr("Map is not available!\n");
+        return CR_FAILURE;
+    }
+    size_t numItems = world->items.all.size();
+
+    int cleaned_total = 0;
+
+    // proceed with the cleanup operation
+    for (size_t i = 0; i < numItems; i++)
+    {
+        df::item *item = world->items.all[i];
+        // only process items marked as "in construction"
+        if (!item->flags.bits.construction)
+            continue;
+        df::coord pos(item->pos.x, item->pos.y, item->pos.z);
+
+        df::construction *cons = df::construction::find(pos);
+        if (!cons)
+        {
+            out.printerr("Item at %i,%i,%i marked as construction but no construction is present!\n", pos.x, pos.y, pos.z);
+            continue;
+        }
+        // if the construction is already labeled as "no build item", then leave it alone
+        if (cons->flags.bits.no_build_item)
+            continue;
+
+        // only destroy the item if the construction claims to be made of the exact same thing
+        if (item->getType() != cons->item_type ||
+            item->getSubtype() != cons->item_subtype ||
+            item->getMaterial() != cons->mat_type ||
+            item->getMaterialIndex() != cons->mat_index)
+            continue;
+
+        item->flags.bits.garbage_collect = 1;
+        cons->flags.bits.no_build_item = 1;
+
+        cleaned_total++;
+    }
+
+    out.print("Done. %d constructed items cleaned up.\n", cleaned_total);
+    return CR_OK;
+}
\ No newline at end of file