diff --git a/ppx/metaquot_ppx.ml b/ppx/metaquot_ppx.ml
index cccf5ac..a258f8f 100644
--- a/ppx/metaquot_ppx.ml
+++ b/ppx/metaquot_ppx.ml
@@ -1,8 +1,11 @@
 let mapper = object (self)
   inherit Ppxlib.Ast_traverse.map as super
 
-  method! expression =
+  method! expression exp =
+    Gc.minor (); (* This seems to solve a segfault in OCaml 5.0
+      but this is weird!*)
     Metaquot.Exp.lift { expression = super#expression; pattern = super#pattern }
+      exp
 
   method! pattern =
     Metaquot.Pat.lift { expression = super#expression; pattern = super#pattern }