thodg/cl-unix-cybernetics

diff --git a/core/host.lisp b/core/host.lisp
index acf2908..abf5e1d 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -71,7 +71,7 @@
 
 ;;  Host
 
-(defun hostname (&optional (host *host*))
+(defun hostname (&optional (host (current-host)))
   (resource-id (the host host)))
 
 ;;  Host shell