diff --git a/DESCRIPTION b/DESCRIPTION
index 27d3b8a..2afdd25 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: iNextPD
 Type: Package
 Title: Interpolation and Extrapolation for Phylogenetic Diversity
-Version: 0.3.1
+Version: 0.3.2
 Date: 2016-11-10
 Authors@R: c(person("T. C.", "Hsieh", role = c("aut", "cre", "cph"), email =
     "euler96@gmail.com"),  person("Chun-Huo", "Chiu", role = "ths", email =
diff --git a/NEWS b/NEWS
index b94e5a8..f8bd111 100644
--- a/NEWS
+++ b/NEWS
@@ -7,3 +7,7 @@ iNextPD 0.3.1
 ----------------------------------------------------------------
 - Import `girdExtra`, `ggthemes` to pass R check
 - Do not run a example in `estimatePD`
+
+iNextPD 0.3.2
+----------------------------------------------------------------
+- Fix the bootstrap tips label problem
diff --git a/R/iNextPD.R b/R/iNextPD.R
index dde0e03..a5cc679 100644
--- a/R/iNextPD.R
+++ b/R/iNextPD.R
@@ -36,7 +36,7 @@ iNextPD.Ind <- function(x, labels, phy, q, size=NULL, endpoint=2*sum(x), knots=4
   U <- tmp$branch_abun
   L <- tmp$branch_length
   names(x) <- labels
-  x <- x[names(phy$leaves)]
+  # x <- x[names(phy$leaves)]
   phd.hat <- PhD.m(n, x, U, L, q, m)
   C.hat <- Coverage_(x, "abundance", m)
   
@@ -111,7 +111,7 @@ iNextPD.Sam <- function(x, labels, phy, q, size=NULL, endpoint=2*ncol(x), knots=
   L <- tmp$branch_length
   xx <- rowSums(x)
   names(xx) <- labels
-  xx <- xx[names(phy$leaves)]
+  # xx <- xx[names(phy$leaves)]
   phd.hat <- PhD.m(nT, xx, U, L, q, t)
   C.hat <- Coverage_(Spec, "incidence",t)