diff --git a/VECTO/Input Files/Gearbox.vb b/VECTO/Input Files/Gearbox.vb
index 985ffd31b46ca79e163783d1f8921344a0ec04d4..8a07d624ce06a9c95d163c16ad035c110dfe9a72 100644
--- a/VECTO/Input Files/Gearbox.vb	
+++ b/VECTO/Input Files/Gearbox.vb	
@@ -258,6 +258,7 @@ Public Class Gearbox
 		writer.WriteLine("engine speed, full load torque, motoring torque")
 		writer.WriteLine(" 500, 2000, -500")
 		writer.WriteLine("2500, 2000, -500")
+		writer.WriteLine("3000,    0, -500")
 		writer.Flush()
 		fldData.Seek(0, SeekOrigin.Begin)
 		Dim retVal As CombustionEngineData = New CombustionEngineData() With {
@@ -267,7 +268,7 @@ Public Class Gearbox
 		Dim fldCurve As EngineFullLoadCurve = FullLoadCurveReader.Create(VectoCSVFile.ReadStream(fldData))
 		Dim fullLoadCurves As Dictionary(Of UInteger, EngineFullLoadCurve) =
 				New Dictionary(Of UInteger, EngineFullLoadCurve)()
-		fullLoadCurves(0) = FullLoadCurveReader.Create(VectoCSVFile.ReadStream(fldData))
+		fullLoadCurves(0) = fldCurve
 		fullLoadCurves(0).EngineData = retVal
 		For i As Integer = 0 To gears.Count - 1
 			fullLoadCurves(CType(i + 1, UInteger)) = AbstractSimulationDataAdapter.IntersectFullLoadCurves(fullLoadCurves(0),