diff --git a/c/xlib/font.c b/c/xlib/font.c
index e93676d..e6afb58 100644
--- a/c/xlib/font.c
+++ b/c/xlib/font.c
@@ -60,10 +60,10 @@ s48_value scx_List_Font_Names(s48_value Xdisplay, s48_value pattern) {
   s48_value v = S48_FALSE;
   S48_DECLARE_GC_PROTECT(1);
 
-  XListFonts(SCX_EXTRACT_DISPLAY(Xdisplay), 
-	     s48_extract_string(pattern),
-	     65535,
-	     &n);
+  sa = XListFonts(SCX_EXTRACT_DISPLAY(Xdisplay), 
+		  s48_extract_string(pattern),
+		  65535,
+		  &n);
   
   v = s48_make_vector(n, S48_FALSE);
   S48_GC_PROTECT_1(v);
@@ -83,11 +83,11 @@ s48_value scx_List_Fonts(s48_value Xdisplay, s48_value pattern) {
   s48_value v = S48_FALSE;
   S48_DECLARE_GC_PROTECT(1);
 
-  XListFontsWithInfo(SCX_EXTRACT_DISPLAY(Xdisplay), 
-		     s48_extract_string(pattern),
-		     65535,
-		     &n,
-		     &fsa);
+  sa = XListFontsWithInfo(SCX_EXTRACT_DISPLAY(Xdisplay), 
+			  s48_extract_string(pattern),
+			  65535,
+			  &n,
+			  &fsa);
   
   v = s48_make_vector(n, S48_FALSE);
   S48_GC_PROTECT_1(v);