diff --git a/src/core/fut.ml b/src/core/fut.ml
index cc8ee076..fe3c6b3b 100644
--- a/src/core/fut.ml
+++ b/src/core/fut.ml
@@ -442,4 +442,5 @@ module Infix_local = Infix [@@deprecated "use Infix"]
 
 module Private_ = struct
   let[@inline] unsafe_promise_of_fut x = x
+  let[@inline] as_computation self = self.st
 end
diff --git a/src/core/fut.mli b/src/core/fut.mli
index 243afad0..46c331ad 100644
--- a/src/core/fut.mli
+++ b/src/core/fut.mli
@@ -285,6 +285,8 @@ module Infix_local = Infix
 module Private_ : sig
   val unsafe_promise_of_fut : 'a t -> 'a promise
   (** please do not use *)
+
+  val as_computation : 'a t -> 'a Picos.Computation.t
 end
 
 (**/**)