diff --git a/src/gen_rules.ml b/src/gen_rules.ml
index 29c822de..336a1a61 100644
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@@ -1012,7 +1012,11 @@ module Gen(P : Params) = struct
           if List.exists deps ~f:(function
             | "ppx_driver" | "ppx_type_conv" -> true
             | _ -> false) then
-            pps @ [Pp.of_string "ppx_driver.runner"]
+            pps @ [match Scope.name scope with
+              | Some "ppx_base" ->
+                Pp.of_string "ppx_base.runner"
+              | _ ->
+                Pp.of_string "ppx_driver.runner"]
           else
             pps
         in
diff --git a/src/super_context.ml b/src/super_context.ml
index 02eba1d0..a2c1b57b 100644
--- a/src/super_context.ml
+++ b/src/super_context.ml
@@ -950,7 +950,7 @@ module PP = struct
 
   let uses_ppx_driver ~pps =
     match Option.map ~f:Pp.to_string (List.last pps) with
-    | Some "ppx_driver.runner" -> true
+    | Some ("ppx_driver.runner" | "ppx_base.runner") -> true
     | Some _ | None -> false
 
   let promote_correction ~uses_ppx_driver fn build =