thodg/cl-unix-cybernetics

diff --git a/core/defs.lisp b/core/defs.lisp
index 6267e7e..6a8316a 100644
--- a/core/defs.lisp
+++ b/core/defs.lisp
@@ -194,8 +194,6 @@
 (defgeneric host-os (host))
 (defgeneric host-run (host &rest command))
 
-(define-resource-class ssh-host (host))
-
 (defvar *host*)
 
 ;;  Probing resources
diff --git a/core/host.lisp b/core/host.lisp
index f5b0900..33a744f 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -78,7 +78,7 @@
                     (string-equal "localhost" host)
                     (string= "127.0.0.1" host))
                 (localhost)
-                (resource 'ssh-host host)))))
+                (resource 'host host)))))
 
 (defmethod host-run ((host host) &rest command)
   (let ((shell (host-shell host)))
@@ -88,7 +88,7 @@
 
 (defmacro with-connected-host ((var hostname) &body body)
   (let ((g!host (gensym "HOST-")))
-    `(let ((,g!host (make-instance 'ssh-host :id ,hostname)))
+    `(let ((,g!host (make-instance 'host :id ,hostname)))
        (unwind-protect (let ((,var ,g!host)) ,@body)
          (host-disconnect ,g!host)))))