diff --git a/extra/pango/fonts/fonts.factor b/extra/pango/fonts/fonts.factor
index 6076b6a254..d07c71226a 100644
--- a/extra/pango/fonts/fonts.factor
+++ b/extra/pango/fonts/fonts.factor
@@ -26,15 +26,15 @@ pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
 
 : list-families ( PangoFontMap* -- PangoFontFamily*-seq )
     0 <int> 0 <int> [ pango_font_map_list_families ] 2keep
-    *int >r *void* r> c-void*-array> ;
+    *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
 
 : list-faces ( PangoFontFamily* -- PangoFontFace*-seq )
     0 <int> 0 <int> [ pango_font_family_list_faces ] 2keep
-    *int >r *void* r> c-void*-array> ;
+    *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
 
 : list-sizes ( PangoFontFace* -- ints )
     0 <int> 0 <int> [ pango_font_face_list_sizes ] 2keep
-    *int >r *void* r> c-int-array> ;
+    *int swap *void* [ swap c-int-array> ] [ g_free ] bi ;
 
 : monospace? ( PangoFontFamily* -- ? )
     pango_font_family_is_monospace 1 = ;
diff --git a/extra/pango/pango.factor b/extra/pango/pango.factor
index 3836a43e3f..3549d9abb4 100644
--- a/extra/pango/pango.factor
+++ b/extra/pango/pango.factor
@@ -48,7 +48,12 @@ pango_layout_get_pixel_size ( PangoLayout* layout, int* width, int* height ) ;
 FUNCTION: void
 pango_font_description_free ( PangoFontDescription* desc ) ;
 
+! glib functions
+
 TYPEDEF: void* gpointer
 
 FUNCTION: void
 g_object_unref ( gpointer object ) ;
+
+FUNCTION: void
+g_free ( gpointer mem ) ;