thodg/cl-unix-cybernetics

diff --git a/core/host.lisp b/core/host.lisp
index dd98597..bc2efdf 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -150,7 +150,7 @@
 				 :version version))))))
 
 (defmethod probe-hostname ((host host) (os os-unix))
-  (cons :hostname (run "hostname")))
+  (list :hostname (first (run "hostname"))))
 
 (defmethod probe-boot-time ((host host) (os os-unix))
   (with-uptime<1> (time uptime users load1 load5 load15) (run "uptime")