diff --git a/R/titvFPEst.R b/R/titvFPEst.R
index d963565bc..7af5e8bbb 100755
--- a/R/titvFPEst.R
+++ b/R/titvFPEst.R
@@ -41,9 +41,8 @@ normcumsum <- function(x) {
     cumsum(normalize(x))
 }
 
-cumhist <- function(d) {
-    h <- hist(d)
-    #plot(h$mids, cumsum(h$count), type="b", col="orange", lwd=2)
+cumhist <- function(d, ...) {
+    plot(d[order(d)], type="b", col="orange", lwd=2, ...)
 }
 
 revcumsum <- function(x) {