From f2e97b1c428c52a0b603dd272bce68e949220a83 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Mar 2023 09:53:17 -0400
Subject: Give overlay scene a name.

---
 catbird/overlay.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/catbird/overlay.scm b/catbird/overlay.scm
index b2a36d2..2b3c184 100644
--- a/catbird/overlay.scm
+++ b/catbird/overlay.scm
@@ -42,7 +42,7 @@
 (define-class <overlay> (<scene>))
 
 (define (make-overlay)
-  (make <overlay>))
+  (make <overlay> #:name 'overlay))
 
 (define-method (notify (scene <overlay>) message)
   (run-script scene
-- 
cgit v1.2.3