diff --git a/src/geometry/narrow_phase/mod.rs b/src/geometry/narrow_phase/mod.rs
index f2fcc5654..8d13be8e1 100644
--- a/src/geometry/narrow_phase/mod.rs
+++ b/src/geometry/narrow_phase/mod.rs
@@ -454,6 +454,14 @@ impl NarrowPhase {
         }
     }
 
+    /// Replaces the query dispatcher used by this narrow-phase.
+    pub fn set_query_dispatcher<D>(&mut self, d: D)
+    where
+        D: 'static + PersistentQueryDispatcher<ContactManifoldData, ContactData>,
+    {
+        self.query_dispatcher = Arc::new(d);
+    }
+
     fn update_awake_body_mask(&mut self, islands: &IslandManager) {
         self.awake_body_mask.clear();
         let len = islands