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))