diff --git a/AUTHORS.adoc b/AUTHORS.adoc
index 839603bd..56dba742 100644
--- a/AUTHORS.adoc
+++ b/AUTHORS.adoc
@@ -25,4 +25,5 @@
 - Fabian Hemmer (copy)
 - Maciej Woś (@lostman)
 - Orbifx (Stavros Polymenis)
-- Dave Aitken (@actionshrimp)
\ No newline at end of file
+- Rand (@rand00)
+- Dave Aitken (@actionshrimp)
diff --git a/src/data/CCRAL.ml b/src/data/CCRAL.ml
index f025bf53..351e687b 100644
--- a/src/data/CCRAL.ml
+++ b/src/data/CCRAL.ml
@@ -337,11 +337,15 @@ and drop_tree_ ~size n t tail = match t with
   | Node (_,l,r) ->
     if n=1 then append_tree_ l (append_tree_ r tail)
     else
-      let size' = size/2 in
+      let size' = if size mod 2 <> 0 then (size/2)+1 else size/2 in
       if n-1 < size'
       then drop_tree_ ~size:size' (n-1) l (append_tree_ r tail)
       else drop_tree_ ~size:size' (n-1-size') r tail
 
+(*$T
+  of_list [1;2;3] |> drop 2 |> length = 1
+*)
+
 let drop_while ~f l =
   let rec aux p st = match st with
     | St_nil -> Nil