thodg/cl-unix-cybernetics

diff --git a/core/host.lisp b/core/host.lisp
index f22bdd5..4457254 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -91,8 +91,10 @@
 
 (defmethod host-run ((host host) &rest command)
   (let ((shell (host-shell host)))
-    (when (shell-closed-p shell)
-      (setq shell (host-connect host)))
+    (loop
+       (if (shell-closed-p shell)
+           (setq shell (host-connect host))
+           (return)))
     (apply #'shell-run shell command)))
 
 (defmacro with-connected-host ((var hostname) &body body)