diff --git a/basis/ui/text/freetype/freetype.factor b/basis/ui/text/freetype/freetype.factor
index b65e567882..fc7534666f 100644
--- a/basis/ui/text/freetype/freetype.factor
+++ b/basis/ui/text/freetype/freetype.factor
@@ -94,7 +94,7 @@ MEMO: (open-font) ( font -- open-font )
 GENERIC: open-font ( font -- open-font )
 
 M: font open-font
-    clone f >>background f >>foreground (open-font) ;
+    freetype drop clone f >>background f >>foreground (open-font) ;
 
 : load-glyph ( font char -- glyph )
     [ handle>> dup ] dip 0 FT_Load_Char