thodg/cl-unix-cybernetics

diff --git a/core/host.lisp b/core/host.lisp
index 143b56a..5deef57 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -24,8 +24,6 @@
 
 ;;  localhost
 
-(assert (string= (machine-instance) (first (run "hostname"))))
-
 (defun local-hostname ()
   (machine-instance))
 
diff --git a/test.lisp b/test.lisp
index 549f7aa..999b532 100644
--- a/test.lisp
+++ b/test.lisp
@@ -27,6 +27,8 @@
 (setf (debug-p :shell) t)
 (setf (debug-p :sb-shell) nil)
 
+(assert (string= (machine-instance) (first (run "hostname"))))
+
 (adams:clear-resources)
 
 (resource 'host "ams.kmx.io"