From 9ef2323823c8fea8cfb53e9c011433daeb7ec66f Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sat, 22 Aug 2026 23:22:31 +0000
Subject: Make the interfaces open

---
 lib/protocols/Handle.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/protocols/Handle.ml')

diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml
index 1868737..9fd1f29 100644
--- a/lib/protocols/Handle.ml
+++ b/lib/protocols/Handle.ml
@@ -18,7 +18,7 @@ let object_of { valid; refers_to } =
 
 let interface_of handle interface = { handle; interface }
 
-let make o = { valid = ref true; refers_to = o }
+let make o = { valid = ref true; refers_to = (o :> obj) }
 
 let into handle f =
   List.find_map f (object_of handle)#protocols
-- 
cgit v1.2.3