Будущие обещания в Clojure зависают на мне

Когда я выполняю следующий код, он в основном работает, как я предназначаю это к, за исключением того, что он зависает после того, как будущее закончено. Что я пропускаю - некоторые "близкие агенты/потоки" вызов? Как я должен сделать это?

(def name-to-greet (promise))

(future
    (println "Hello," @name-to-greet))

(print "What is your name? ")
(flush)
(deliver name-to-greet (read-line))