diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 236c8eefa4..6c95f61591 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,6 +1,9 @@
 0.79:
 
-- fix remaining cosmetic issues in UI
+- tutorial gradient does not appear
+- sig11 on first startup
+- fix initial font metrics being incorrect
+- fix solid boundary paint
 - investigate UI on Linux/x86
 - swap @{ and { syntax
 - get stuff in examples dir running in the ui
@@ -95,6 +98,7 @@
 
 + kernel:
 
+- better prettyprinting of cond
 - better handling of random arrangements of html words when
   prettyprinting
 - friendlier .factor-rc load error handling
diff --git a/library/freetype/freetype-gl.factor b/library/freetype/freetype-gl.factor
index 5a8f82462a..0668f93332 100644
--- a/library/freetype/freetype-gl.factor
+++ b/library/freetype/freetype-gl.factor
@@ -129,12 +129,10 @@ C: font ( handle -- font )
 : with-locked-block ( size quot -- | quot: address -- )
     swap 1 calloc [ swap call ] keep free ; inline
 
-: b/b>w 8 shift bitor ;
-
 : copy-pixel ( bit tex -- bit tex )
-    f pick alien-unsigned-1 255 b/b>w
-    f pick set-alien-unsigned-2
-    >r 1+ r> 2 + ;
+    255 f pick set-alien-unsigned-1 1+
+    f pick alien-unsigned-1
+    f pick set-alien-unsigned-1 >r 1+ r> 1+ ;
 
 : (copy-row) ( bit tex bitend texend -- bitend texend )
     >r pick over >= [