libexec/dna in alpha_omega-0.0.183 vs libexec/dna in alpha_omega-0.0.184

@@ -112,14 +112,30 @@
           plan)
             bundle exec cap "$@" deploy:lock deploy:plan
             ;;
 
           lock)
-            bundle exec cap "$@" deploy:dont_unlock deploy:lock
+            case "$1" in
+              compare|migrate)
+                nm_lock="$1"; shift
+                bundle exec cap "$@" deploy:dont_unlock "deploy:lock_${nm_lock}"
+                ;;
+              *)
+                bundle exec cap "$@" deploy:dont_unlock deploy:lock
+                ;;
+            esac
             ;;
 
           unlock)
-            bundle exec cap "$@" deploy:unlock
+            case "$1" in
+              compare|migrate)
+                nm_lock="$1"; shift
+                bundle exec cap "$@" "deploy:unlock_${nm_lock}"
+                ;;
+              *)
+                bundle exec cap "$@" deploy:unlock
+                ;;
+            esac
             ;;
 
           shell)
             bundle exec cap "$@" shell
             ;;