thodg/cl-unix-cybernetics

diff --git a/core/probe.lisp b/core/probe.lisp
index 0a74a78..91841f0 100644
--- a/core/probe.lisp
+++ b/core/probe.lisp
@@ -94,6 +94,10 @@
     (add-probed-properties r result)
     result))
 
+(defmethod probe ((host host) (property symbol))
+  (with-host host
+    (call-next-method)))
+
 (defmethod get-probed ((r resource) (property symbol))
   (let ((value (get-property property (probed-properties r))))
     (when (eq +undefined+ value)