thodg/cl-unix-cybernetics

diff --git a/core/probe.lisp b/core/probe.lisp
index fc29db0..2fc2e8f 100644
--- a/core/probe.lisp
+++ b/core/probe.lisp
@@ -75,6 +75,10 @@
 	  (probes-of r)))
 
 (defun add-probed-properties (resource properties)
+  (format t "~&(resource '~A ~S ~{~S ~S~^ ~})~%"
+          (class-name (class-of resource))
+          (resource-id resource)
+          properties)
   (setf #1=(probed-properties resource)
         (merge-properties resource #1# properties)))