thodg/cl-unix-cybernetics

diff --git a/core/probe.lisp b/core/probe.lisp
index 2468083..5c852d6 100644
--- a/core/probe.lisp
+++ b/core/probe.lisp
@@ -120,7 +120,12 @@
     (when p
       (clear-probed r p))))
 
-(defun clear-probed (&optional (resource (localhost)) properties)
+(defmethod clear-probed% ((res resource-container) properties)
+  (call-next-method)
+  (do-resources (child) res
+    (clear-probed% child properties)))
+
+(defun clear-probed (&optional (resource *parent-resource*) properties)
   (clear-probed% resource properties))
 
 ;;  Conditions