From 1032eb4a59d0987e2628c633059545b338751f9a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 2 Dec 2010 06:31:36 -0700
Subject: [PATCH] restore fix of 470ed7c996dca2f0801f43efc768f1082c7bea92 that
 got lost

---
 collects/racket/draw/unsafe/pango.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/racket/draw/unsafe/pango.rkt b/collects/racket/draw/unsafe/pango.rkt
index 7779deadb9..3101f1290e 100644
--- a/collects/racket/draw/unsafe/pango.rkt
+++ b/collects/racket/draw/unsafe/pango.rkt
@@ -211,7 +211,7 @@
                                                  -> (begin0
                                                       (for/list ([i (in-range len)])
                                                         (ptr-ref fams PangoFontFamily i))
-                                                      (free fams))))
+                                                      (g_free fams))))
 
 (define-pango pango_font_description_free (_fun PangoFontDescription -> _void) 
   #:wrap (deallocator))