From 8b1fd38fe165c80a02a2fd3c7d69a568e387f0a2 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Sat, 11 Mar 2023 17:05:53 -0600
Subject: [PATCH] gall: check high-water mark

---
 pkg/arvo/sys/vane/gall.hoon | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/pkg/arvo/sys/vane/gall.hoon b/pkg/arvo/sys/vane/gall.hoon
index 9201bcd8f8..5d48f4641c 100644
--- a/pkg/arvo/sys/vane/gall.hoon
+++ b/pkg/arvo/sys/vane/gall.hoon
@@ -275,6 +275,11 @@
         %+  ~(put by sky.state)  pit
         `(~(put by fan:*path-state) yon [%& noun])
       mo-core
+    =>  ?~  bob.u.old
+          .
+        ~|  gall-grow-bob+[path actual=yon max=u.bob.u.old]
+        ?>  (gth yon u.bob.u.old)
+        .
     =/  val  (~(get by fan.u.old) yon)
     ?~  val  ::  insert binding at new case
       =.  sky.state