diff --git a/c/libs/xft.c b/c/libs/xft.c
index c7bc50b..34e3894 100644
--- a/c/libs/xft.c
+++ b/c/libs/xft.c
@@ -329,7 +329,7 @@ s48_value scx_XftListFontsPatternObjects(s48_value sdpy, s48_value sscreen,
 void scx_xft_init(void)
 {
   XFT_GC_PROTECT_IMPORT_BINDING(scx_xftpattern_record_type, "xft-pattern"); 
-  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftfontset_record_type, "xft-font"); 
+  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftfont_record_type, "xft-font"); 
   XFT_GC_PROTECT_IMPORT_BINDING(scx_xftdraw_record_type, "xft-draw"); 
   XFT_GC_PROTECT_IMPORT_BINDING(scx_xftcolor_record_type, "xft-color"); 
   XFT_GC_PROTECT_IMPORT_BINDING(scx_xftobjectset_record_type, "xft-objectset"); 
diff --git a/c/libs/xft.h b/c/libs/xft.h
index 20537a9..6e1f759 100644
--- a/c/libs/xft.h
+++ b/c/libs/xft.h
@@ -96,23 +96,23 @@ static struct xft_pattern_property xft_pattern_property_tbl [] = {
 
 /* scheme record types */
 static s48_value scx_xftpattern_record_type		= S48_FALSE;
-s48_value scx_xftfont_record_type		= S48_FALSE;
-s48_value scx_xftdraw_record_type		= S48_FALSE;
-s48_value scx_xftcolor_record_type		= S48_FALSE;
-s48_value scx_xftobjectset_record_type		= S48_FALSE;
-s48_value scx_xftfontset_record_type		= S48_FALSE;
+static s48_value scx_xftfont_record_type		= S48_FALSE;
+static s48_value scx_xftdraw_record_type		= S48_FALSE;
+static s48_value scx_xftcolor_record_type		= S48_FALSE;
+static s48_value scx_xftobjectset_record_type		= S48_FALSE;
+static s48_value scx_xftfontset_record_type		= S48_FALSE;
 
 #define XFT_GC_PROTECT_IMPORT_BINDING(CN, SN)		\
 	S48_GC_PROTECT_GLOBAL(CN);			\
 	CN = s48_get_imported_binding(SN);
 
 /* C values exported to scheme */
-s48_value scx_XftResultMatch		= S48_FALSE;
-s48_value scx_XftResultNoMatch		= S48_FALSE;
-s48_value scx_XftResultTypeMismatch	= S48_FALSE;
-s48_value scx_XftResultNoId		= S48_FALSE;
-s48_value scx_XftVersionMajor		= S48_FALSE;
-s48_value scx_XftVersionMinor		= S48_FALSE;
+static s48_value scx_XftResultMatch		= S48_FALSE;
+static s48_value scx_XftResultNoMatch		= S48_FALSE;
+static s48_value scx_XftResultTypeMismatch	= S48_FALSE;
+static s48_value scx_XftResultNoId		= S48_FALSE;
+static s48_value scx_XftVersionMajor		= S48_FALSE;
+static s48_value scx_XftVersionMinor		= S48_FALSE;
 
 #define XFT_REC_ACCESSOR_MAKER(FN, TN, RN) \
 	s48_value FN(TN *p)				\