thodg/cl-unix-cybernetics

diff --git a/core/resource.lisp b/core/resource.lisp
index 782e4b1..8deaa91 100644
--- a/core/resource.lisp
+++ b/core/resource.lisp
@@ -163,7 +163,7 @@
 
 ;;  Sync
 
-(defun sync-op (host res op op-keys op-plist os)
+(defun sync-check (host res op op-keys op-plist os)
   (let ((failed))
     (dolist (property op-keys)
       (let ((specified (get-property property op-plist)))
diff --git a/core/spec.lisp b/core/spec.lisp
index 632b992..88b4750 100644
--- a/core/spec.lisp
+++ b/core/spec.lisp
@@ -154,6 +154,6 @@ Second value lists properties in line with spec. Format is
        (let* ((item (pop diff))
               (key (first item)))
          (when (keywordp key)
-           (push (second item) plist)
-           (push key plist))))
+           (push key plist)
+           (push (second item) plist))))
     (nreverse plist)))
diff --git a/package.lisp b/package.lisp
index 5b8e231..bfcfb82 100644
--- a/package.lisp
+++ b/package.lisp
@@ -78,6 +78,7 @@
    #:resource-type
    #:specified-properties
    #:specified-property
+   #:sync
    ;;  Resource container
    #:*parent-resource*
    #:clear-resources