diff --git a/docs/01-tcc.pdf b/docs/01-tcc.pdf
index ef2cb2358af0377358bd2448f084687e813181ad..26ff5e12546555493e3029049f49a0c7662aceff 100644
Binary files a/docs/01-tcc.pdf and b/docs/01-tcc.pdf differ
diff --git a/docs/cap02_revisao-de-literatura.Rnw b/docs/cap02_revisao-de-literatura.Rnw
index ce9907c172e546c8f65f79eddf20f2b47752d6dd..fcdb36d08f696a615e4ef3b86f0767d130ee9a92 100644
--- a/docs/cap02_revisao-de-literatura.Rnw
+++ b/docs/cap02_revisao-de-literatura.Rnw
@@ -587,9 +587,9 @@ da <- data.frame(values = unlist(py.co),
 l <- sapply(pars, function(p) p[1])
 n <- sapply(pars, function(p) p[2])
 fl <- substitute(
-    expression(atop("Poisson", lambda == l1~","~nu == n1),
-               atop("Bernoulli", lambda == l2~","~nu == n2),
-               atop("Geométrica", lambda == l3~","~nu == n3)),
+    expression(lambda == l1~","~nu == n1,
+               lambda == l2~","~nu == n2,
+               lambda == l3~","~nu == n3),
     list(l1 = l[1], l2 = l[2], l3 = l[3],
          n1 = n[1], n2 = n[2], n3 = n[3]))
 
@@ -600,8 +600,20 @@ xyplot(values ~ c(y - 0.15) | ind, data = da,
        xlab = "y", ylab = expression(P(Y == y)),
        scales = list(relation = "free"),
        layout = c(NA, 1),
-       par.strip = list(lines = 3),
-       strip = strip.custom(factor.levels = fl))
+       par.strip = list(lines = 2, col = "transparent"))
+distr <- c("Poisson", "Bernoulli", "Geométrica")
+##-------------------------------------------
+## http://stackoverflow.com/questions/33632344/strip-with-two-lines-title-r-lattice-plot
+for (i in 1:3) {
+    ## navigate to i-th strip
+    vp <- paste0("plot_01.strip.", i, ".1.vp")
+    grid::downViewport(vp)
+    ## add first and second line of text
+    grid::grid.text(distr[i], vjust = 0)
+    grid::grid.text(eval(fl[[i+1]]), vjust = 1.1)
+    ## navigate to top level
+    grid::upViewport(0)
+}
 
 @