diff --git a/c/libs/xft.c b/c/libs/xft.c
index c148138..fbccfa9 100644
--- a/c/libs/xft.c
+++ b/c/libs/xft.c
@@ -385,6 +385,12 @@ s48_value scx_XftFontSetPrint(s48_value sxfs)
   return S48_UNSPECIFIC;
 }
 
+s48_value scx_XftDefaultHasRender(s48_value sdpy)
+{
+  return XftDefaultHasRender(scx_extract_display(sdpy)) ? S48_TRUE : S48_FALSE;
+}
+
+
 void scx_xft_init(void)
 {
   XFT_GC_PROTECT_IMPORT_BINDING(scx_xftpattern_record_type, "xft-pattern"); 
@@ -446,4 +452,6 @@ void scx_xft_init(void)
 
   S48_EXPORT_FUNCTION(scx_XftPatternPrint);
   S48_EXPORT_FUNCTION(scx_XftFontSetPrint);
+
+  S48_EXPORT_FUNCTION(scx_XftDefaultHasRender);
 }