diff --git a/lib/shared_print/finder.rb b/lib/shared_print/finder.rb
index 6c29e905..f668fb25 100644
--- a/lib/shared_print/finder.rb
+++ b/lib/shared_print/finder.rb
@@ -82,7 +82,8 @@ def match?(commitment)
       (@deprecated.nil? || @deprecated == commitment.deprecated?) &&
         empty_or_include?(@organization, commitment.organization) &&
         empty_or_include?(@ocn, commitment.ocn) &&
-        empty_or_include?(@local_id, commitment.local_id)
+        empty_or_include?(@local_id, commitment.local_id) &&
+        empty_or_include?(@phase, commitment.phase)
     end
 
     # A commitment matches e.g. the @ocn acriterion if @ocn == []
diff --git a/spec/shared_print/finder_spec.rb b/spec/shared_print/finder_spec.rb
index ce9f92c0..020d59fd 100644
--- a/spec/shared_print/finder_spec.rb
+++ b/spec/shared_print/finder_spec.rb
@@ -23,6 +23,18 @@
   let(:pd2) { SharedPrint::Phases::PHASE_2_DATE }
   let(:pd3) { SharedPrint::Phases::PHASE_3_DATE }
 
+  def phase_in_phase_out(input_phases)
+    if input_phases.empty?
+      # Edge case:
+      # SharedPrint::Finder.new(phase: []).commitments
+      # ... actually returns commitments with all phases.
+      input_phases = [1, 2, 3]
+    end
+    finder = described_class.new(phase: input_phases)
+    output_phases = finder.commitments.map(&:phase).uniq.sort
+    expect(output_phases).to eq input_phases
+  end
+
   before(:each) do
     Cluster.collection.find.delete_many
   end
@@ -59,6 +71,31 @@
       # Get nothing if there are no phase 3.
       expect(described_class.new(organization: [org1], phase: [p3]).commitments.to_a).to eq []
     end
+    it "is specific" do
+      # i.e. when you query for phase 3 commitments,
+      # you get only commitments with phase 3
+      cluster_tap_save(
+        build(:commitment, ocn: ocn1, phase: 1),
+        build(:commitment, ocn: ocn1, phase: 2),
+        build(:commitment, ocn: ocn1, phase: 3)
+      )
+      # Look up commitments using a phase array.
+      # Expect the phases of all commitments in the output
+      # to match the phases of the input.
+      test_cases = [
+        [],
+        [1],
+        [2],
+        [3],
+        [1, 2],
+        [2, 3],
+        [1, 3],
+        [1, 2, 3]
+      ]
+      test_cases.each do |input_phases|
+        phase_in_phase_out(input_phases)
+      end
+    end
   end
 
   describe "return types" do