diff --git a/src/core/pool_func.cpp b/src/core/pool_func.cpp
--- a/src/core/pool_func.cpp
+++ b/src/core/pool_func.cpp
@@ -16,7 +16,7 @@
  * Destructor removes this object from the pool vector and
  * deletes the vector itself if this was the last item removed.
  */
-PoolBase::~PoolBase()
+/* virtual */ PoolBase::~PoolBase()
 {
 	PoolVector *pools = PoolBase::GetPools();
 	pools->Erase(pools->Find(this));
diff --git a/src/core/pool_type.hpp b/src/core/pool_type.hpp
--- a/src/core/pool_type.hpp
+++ b/src/core/pool_type.hpp
@@ -53,7 +53,7 @@ struct PoolBase {
 		*PoolBase::GetPools()->Append() = this;
 	}
 
-	~PoolBase();
+	virtual ~PoolBase();
 
 	/**
 	 * Virtual method that deletes all items in the pool.