diff --git a/QuantileRegression.m b/QuantileRegression.m
index 62bdc3dd..67a75fc0 100644
--- a/QuantileRegression.m
+++ b/QuantileRegression.m
@@ -336,7 +336,7 @@ I experimented with using DualLinearProgramming (provided by Mathematica) and wi
         cpts = cpts0;
         cpts = ReplacePart[cpts, #1 -> {1}];
         With[{f = BSplineFunction[cpts, Sequence @@ FilterRules[{opts}, Options[BSplineFunction]]]},
-          Evaluate[f @@ Table[ Rescale[Slot[i], lsMinMaxes[[i]]], {i, Length@lsMinMaxes}] ]&])&,
+          Evaluate[f @@ Table[ Rescale[Slot[i], lsMinMaxes[[i]]], {i, Length[lsMinMaxes] - 1}] ]&])&,
         inds
       ];