diff --git a/ThermofluidStream/Media/myMedia/Interfaces.mo b/ThermofluidStream/Media/myMedia/Interfaces.mo
index bdda7142..0f69d133 100644
--- a/ThermofluidStream/Media/myMedia/Interfaces.mo
+++ b/ThermofluidStream/Media/myMedia/Interfaces.mo
@@ -2523,7 +2523,7 @@ quantities are assumed to be constant.
       output ThermodynamicState state "Thermodynamic state record";
     algorithm
       state := ThermodynamicState(p=p, T=Modelica.Math.exp(s/cp_const +
-        Modelica.Math.log(reference_T) + R_gas*Modelica.Math.log(p/reference_p)));
+        Modelica.Math.log(reference_T) + R_gas/cp_const*Modelica.Math.log(p/reference_p)));
     end setState_psX;
 
     redeclare function setState_dTX