--- redisplay-carbon.c~	Wed Feb  9 11:22:07 2005
+++ redisplay-carbon.c	Sat Apr 23 11:41:06 2005
@@ -245,6 +245,11 @@
   ATSUDrawText (text_layout, kATSUFromTextBeginning, kATSUToTextEnd, x, y);
   
   CGContextRestoreGState (context);  
+
+  if (ATSUDisposeStyle (style) != noErr)
+    stderr_out ("Can't dispose of style");    
+  if (ATSUDisposeTextLayout (text_layout) != noErr)
+    stderr_out ("Can't dispose of text layout");
 }
 
 /* Adapted from src/redisplay-msw.c.  */