2 files changed, 5 insertions, 3 deletions
diff --git a/lib/kernel/Namespace.ml b/lib/kernel/Namespace.ml
index 7c9cd2b..20f83f5 100644
--- a/lib/kernel/Namespace.ml
+++ b/lib/kernel/Namespace.ml
@@ -38,12 +38,14 @@ class namespace = object (self)
   method list =
     Atomic.get entries
     |> BatMap.keys
-    |> BatList.of_enum
+    |> BatFingerTree.of_enum
+    |> Result.ok
 
   method find key =
     Atomic.get entries
     |> BatMap.find_opt key
     |> Utilities.Option.fmap Protocols.Handle.copy
+    |> Result.ok
 end
 
-let make () = new namespace
+let make () = Protocols.Handle.make (new namespace)
diff --git a/lib/kernel/Namespace.mli b/lib/kernel/Namespace.mli
index 3ed64a3..ec77724 100644
--- a/lib/kernel/Namespace.mli
+++ b/lib/kernel/Namespace.mli
@@ -4,4 +4,4 @@ class namespace : object
   inherit Protocols.Registry.implementation
 end
 
-val make : unit -> namespace
+val make : unit -> Protocols.Handle.t