diff --git a/clutter/clutter/clutter-actor.c b/clutter/clutter/clutter-actor.c
index 414974dd6..09296995d 100644
--- a/clutter/clutter/clutter-actor.c
+++ b/clutter/clutter/clutter-actor.c
@@ -11702,6 +11702,9 @@ clutter_actor_event (ClutterActor       *actor,
   g_return_val_if_fail (CLUTTER_IS_ACTOR (actor), FALSE);
   g_return_val_if_fail (event != NULL, FALSE);
 
+  COGL_TRACE_BEGIN_SCOPED (Event, "Clutter::Actor::event()");
+  COGL_TRACE_DESCRIBE (Event, _clutter_actor_get_debug_name (actor));
+
   g_object_ref (actor);
 
   event_type = clutter_event_type (event);
diff --git a/clutter/clutter/clutter-main.c b/clutter/clutter/clutter-main.c
index 4fe341bef..b34790f9f 100644
--- a/clutter/clutter/clutter-main.c
+++ b/clutter/clutter/clutter-main.c
@@ -664,6 +664,8 @@ clutter_stage_process_event (ClutterStage *stage,
   ClutterContext *context;
   ClutterSeat *seat;
 
+  COGL_TRACE_BEGIN_SCOPED (ProcessEvent, "Clutter::Stage::process_event()");
+
   context = _clutter_context_get_default ();
   seat = clutter_backend_get_default_seat (context->backend);
 
diff --git a/clutter/clutter/clutter-stage.c b/clutter/clutter/clutter-stage.c
index b9099fdc0..1b3ed8f05 100644
--- a/clutter/clutter/clutter-stage.c
+++ b/clutter/clutter/clutter-stage.c
@@ -709,6 +709,8 @@ _clutter_stage_process_queued_events (ClutterStage *stage)
 
   g_return_if_fail (CLUTTER_IS_STAGE (stage));
 
+  COGL_TRACE_BEGIN_SCOPED (ProcessQueuedEvents, "Clutter::Stage::process_queued_events()");
+
   priv = stage->priv;
 
   if (priv->event_queue->length == 0)
@@ -735,6 +737,10 @@ _clutter_stage_process_queued_events (ClutterStage *stage)
       event = l->data;
       next_event = l->next ? l->next->data : NULL;
 
+      COGL_TRACE_BEGIN_SCOPED (ProcessEvent,
+                               "Clutter::Stage::process_queued_events#event()");
+      COGL_TRACE_DESCRIBE (ProcessEvent, clutter_event_get_name (event));
+
       device = clutter_event_get_device (event);
 
       if (next_event != NULL)
@@ -4302,6 +4308,8 @@ clutter_stage_emit_event (ClutterStage       *self,
   gboolean is_sequence_begin, is_sequence_end;
   ClutterEventType event_type;
 
+  COGL_TRACE_BEGIN_SCOPED (EmitEvent, "Clutter::Stage::emit_event()");
+
   if (sequence != NULL)
     entry = g_hash_table_lookup (priv->touch_sequences, sequence);
   else