diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 167ebf8657..23484ca014 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -16,6 +16,7 @@
 
 + ui:
 
+- x11 copy to clipboard
 - finish gui stepper
 - windows are not updated while resizing
 - graphical module manager tool
@@ -72,6 +73,7 @@
 
 + misc:
 
+- consider: swap tail --> tail, swap head --> head
 - mach_signal: fault address reporting is not reliable
 - slice: if sequence or seq start is changed, abstraction violation
 - hashed generic method dispatch
diff --git a/library/bootstrap/boot-stage1.factor b/library/bootstrap/boot-stage1.factor
index c8fab40ef4..3a0e839922 100644
--- a/library/bootstrap/boot-stage1.factor
+++ b/library/bootstrap/boot-stage1.factor
@@ -203,7 +203,6 @@ sequences vectors words ;
         "/library/ui/ui.factor"
         "/library/ui/gadgets/presentations.factor"
         "/library/ui/tools/listener.factor"
-        "/library/ui/tools/walker.factor"
         "/library/ui/tools/search.factor"
         "/library/ui/tools/browser.factor"
         "/library/ui/tools/help.factor"
diff --git a/library/collections/sequence-combinators.factor b/library/collections/sequence-combinators.factor
index c84259bc6a..72bbde35a3 100644
--- a/library/collections/sequence-combinators.factor
+++ b/library/collections/sequence-combinators.factor
@@ -69,6 +69,9 @@ IN: sequences
     [ [ swap change-nth ] 3keep ] repeat 2drop ;
     inline
 
+: inject-with ( obj seq quot -- | quot: obj elt -- elt )
+    swap [ with rot ] inject 2drop ; inline
+
 : min-length ( seq seq -- n )
     [ length ] 2apply min ;