From e680f6ca28338026bb8ee43c2eba061ecad1afd9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 27 Dec 2022 08:55:36 -0500
Subject: node-2d: Call next-method in <node-2d> on-change method.

---
 catbird/node-2d.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index df0ca3b..1acb324 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -450,7 +450,8 @@
 (define-method (on-change (node <node-2d>) slot old new)
   (case slot
     ((origin position rotation scale shear)
-     (expire-local-matrix node))))
+     (expire-local-matrix node)))
+  (next-method))
 
 (define-method (resize (node <node-2d>) w h)
   (set! (width node) w)
-- 
cgit v1.2.3