diff --git a/src/lagrangian/spray/parcels/Templates/SprayParcel/SprayParcel.C b/src/lagrangian/spray/parcels/Templates/SprayParcel/SprayParcel.C
index da615ae..6857e75 100644
--- a/src/lagrangian/spray/parcels/Templates/SprayParcel/SprayParcel.C
+++ b/src/lagrangian/spray/parcels/Templates/SprayParcel/SprayParcel.C
@@ -96,10 +96,15 @@ void Foam::SprayParcel<ParcelType>::calc
     scalar rho0 = composition.liquids().rho(pc0, T0, X0);
     this->rho() = rho0;

+    const scalar mass0 = this->mass();
     ParcelType::calc(td, dt, cellI);

     if (td.keepParticle)
     {
+        // Reduce the stripped parcel mass due to evaporation (assuming the
+        // number of particles stayed the same)
+        this->ms() -= this->ms()*(mass0 - this->mass())/mass0;
+
         // update Cp, diameter and density due to change in temperature
         // and/or composition
         scalar T1 = this->T();
--
1.7.10.4