diff --git a/a.out b/a.out
index 96bce02..4c7d6a4 100755
Binary files a/a.out and b/a.out differ
diff --git a/trees.cmi b/trees.cmi
index aba4cab..362a8c9 100644
Binary files a/trees.cmi and b/trees.cmi differ
diff --git a/trees.cmo b/trees.cmo
index b6df1d5..1f34d8b 100644
Binary files a/trees.cmo and b/trees.cmo differ
diff --git a/trees.ml b/trees.ml
index 5cfb4bb..f8026a1 100644
--- a/trees.ml
+++ b/trees.ml
@@ -556,6 +556,8 @@ let update_col tr path v = match path with
         | Node (x, p, l, r) -> begin
             match pth with
             | [] -> if isf then Node (x, {x = p.x; y = p.y}, aux l [] false, aux r [] false) else Node (x, {x = p.x + v; y = p.y}, aux l [] false, aux r [] false)
+            | Left::[] -> if isf then Node (x, {x = p.x; y = p.y}, aux l [] false, aux r [] false) else Node (x, {x = p.x + v; y = p.y}, aux l [] false, aux r [] false)
+            | Right::[] -> if isf then Node (x, {x = p.x; y = p.y}, aux l [] false, aux r [] false) else Node (x, {x = p.x + v; y = p.y}, aux l [] false, aux r [] false)
             | Left::t -> if isf then Node (x, {x = p.x + v/2; y = p.y}, aux l t false, r) else Node (x, {x = p.x + v; y = p.y}, aux l t false, r)
             | Right::t -> if isf then Node (x, {x = p.x + v/2; y = p.y}, l, aux r t false) else Node (x, {x = p.x + v; y = p.y}, l, aux r t false)
             | _ -> failwith "Not possible"