diff --git a/DESCRIPTION b/DESCRIPTION
index 605f445..0392a32 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: forplot
 Title: Forest plots
-Version: 0.0.3
+Version: 0.0.4
 Authors@R: 
     person("Lukas", "Bütikofer", , "lukas.buetikofer@unibe.ch", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-0801-746X"))
diff --git a/NEWS.md b/NEWS.md
index bf1c8b9..c407c46 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -10,4 +10,8 @@ bug fix in help file
 
 forplot 0.0.3
 ------------------
-plotting reference line before data
\ No newline at end of file
+plotting reference line before data
+
+forplot 0.0.4
+------------------
+bug fix with arrow heads
\ No newline at end of file
diff --git a/R/forest.R b/R/forest.R
index 83531d1..e433380 100644
--- a/R/forest.R
+++ b/R/forest.R
@@ -338,7 +338,6 @@ fplot<-function(dat,
   #points and arrows
   #symbols(dat$beta,y.at,squares=1/dat$beta_se,add=TRUE,inches=0.15,bg=pcol,fg=NA)
   points(dat$beta,y.at,pch=ps[["pch"]],cex=ps[["cex"]],col=ps[["col"]])
-  arrows(y0=y.at,y1=y.at,x0=dat$beta_lci,x1=dat$beta_uci,code=3,angle=90,length=0)
 
   #arrows and caps
   sel<-dat$beta_lci<min(xlim) | dat$beta_uci>max(xlim)
@@ -417,7 +416,6 @@ fplot<-function(dat,
 	
 	#points and arrows
     points(dat$beta2,y.at,pch=ps[["pch"]],cex=ps[["cex"]],col=ps[["col"]])
-    arrows(y0=y.at,y1=y.at,x0=dat$beta_lci2,x1=dat$beta_uci2,code=3,angle=90,length=0)
 
     #arrows and caps
     sel<-dat$beta_lci2<min(xlim2) | dat$beta_uci2>max(xlim2)