thodg/cl-unix-cybernetics

diff --git a/core/host.lisp b/core/host.lisp
index 46f47fa..415184a 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -196,7 +196,8 @@
 (defmethod match-specified-value ((res host)
                                   (property (eql :packages))
                                   (specified list)
-                                  (probed list))
+                                  (probed list)
+                                  os)
   (format t "~&match-specified-value specified ~S~%" specified)
   (format t "~&match-specified-value probed ~S~%" probed)
   (force-output)
diff --git a/core/os.lisp b/core/os.lisp
index df27ed5..54e2a2f 100644
--- a/core/os.lisp
+++ b/core/os.lisp
@@ -31,7 +31,7 @@
     (format nil "~A ~A ~A ~A"
 	    machine name release version)))
 
-(defmethod match-specified-value ((host host) (property (eql :os)) specified probed)
+(defmethod match-specified-value ((host host) (property (eql :os)) specified probed os)
   (re-match `(:sequence ,specified) probed))
 
 ;;  UNIX