diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 26d38e0383a..c7536fa65bf 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -1098,8 +1098,7 @@ let project_type
 
     | (_,_) ->
         bug ()
-          "unhandled form of lval-ext in Semant."
-          "project_ty: %a indexed by %a"
+          "project_ty: bad lval-ext: %a indexed by %a"
           Ast.sprintf_ty base_ty Ast.sprintf_lval_component comp
 ;;