diff --git a/libs/cyclone/concurrent.sld b/libs/cyclone/concurrent.sld
index 36993af2..b22d91a8 100644
--- a/libs/cyclone/concurrent.sld
+++ b/libs/cyclone/concurrent.sld
@@ -174,7 +174,7 @@
          (tfnc (lambda ()
                  (mutex-lock! lock) 
                  (let ((result (thunk))) ;; TODO: Catch exceptions (?)
-                   (set-result! ftr result)
+                   (set-result! ftr (make-shared result))
                    (set-done! ftr #t)
                    (mutex-unlock! lock) 
                  )))