thodg/cl-unix-cybernetics

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