diff --git a/fltkhs.cabal b/fltkhs.cabal
--- a/fltkhs.cabal
+++ b/fltkhs.cabal
@@ -1,5 +1,5 @@
 name : fltkhs
-version : 0.5.3.6
+version : 0.5.3.7
 synopsis : FLTK bindings
 description: Low level bindings for the FLTK GUI toolkit. For installation and quick start instruction please scroll all the way down to the README.
 license : MIT
diff --git a/src/Graphics/UI/FLTK/LowLevel/FL.chs b/src/Graphics/UI/FLTK/LowLevel/FL.chs
--- a/src/Graphics/UI/FLTK/LowLevel/FL.chs
+++ b/src/Graphics/UI/FLTK/LowLevel/FL.chs
@@ -122,10 +122,9 @@
      getFontName,
      getFont,
      getFontSizes,
-     setFontByString,
-     setFontByFont,
+     setFontToString,
+     setFontToFont,
      setFonts,
-     setFontsWithString,
      -- * File Descriptor Callbacks
      addFd,
      addFdWhen,
@@ -772,14 +771,17 @@
 getFontName f = getFontNameWithAttributes' f
 {# fun Fl_get_font_sizes as getFontSizes
        { cFromFont `Font', alloca- `Int' peekIntConv* } -> `Int' #}
-{# fun Fl_set_font_by_string as setFontByString
+{# fun Fl_set_font_by_string as setFontToString
        { cFromFont `Font', unsafeToCString `T.Text' } -> `()' supressWarningAboutRes #}
-{# fun Fl_set_font_by_font as setFontByFont
+{# fun Fl_set_font_by_font as setFontToFont
        { cFromFont `Font',cFromFont `Font' } -> `()' supressWarningAboutRes #}
-{# fun Fl_set_fonts as setFonts
-       {  } -> `Font' cToFont #}
-{# fun Fl_set_fonts_with_string as setFontsWithString
-       { unsafeToCString `T.Text' } -> `Font' cToFont #}
+{# fun Fl_set_fonts as setFonts'
+       {  } -> `Int' #}
+{# fun Fl_set_fonts_with_string as setFontsWithString'
+       { id `Ptr CChar' } -> `Int' #}
+setFonts :: Maybe T.Text -> IO Int
+setFonts (Just xstarName) = withText xstarName (\starNamePtr -> setFontsWithString' starNamePtr)
+setFonts Nothing = setFonts'
 
 {# fun Fl_add_fd_with_when as addFdWhen'
        {