diff --git a/library/ui/gadgets/books.factor b/library/ui/gadgets/books.factor
index 25ceb4570b..d8276610a0 100644
--- a/library/ui/gadgets/books.factor
+++ b/library/ui/gadgets/books.factor
@@ -14,7 +14,7 @@ M: book model-changed ( book -- )
     [ control-model model-value ] keep
     [ gadget-child unparent ] keep
     [ get-page ] keep
-    [ add-gadget ] keep
+    [ control-self add-gadget ] keep
     request-focus ;
 
 C: book ( pages -- book )
diff --git a/library/ui/text/interactor.factor b/library/ui/text/interactor.factor
index 25c4892af7..87996d8d60 100644
--- a/library/ui/text/interactor.factor
+++ b/library/ui/text/interactor.factor
@@ -77,8 +77,8 @@ interactor {
     { f "Evaluate" T{ key-down f f "RETURN" } [ interactor-commit ] }
     { f "History" T{ key-down f { C+ } "h" } [ dup [ interactor-history. ] curry swap interactor-call ] }
     { f "Send EOF" T{ key-down f { C+ } "d" } [ f swap interactor-eval ] }
-    { f "Stack effect" T{ key-down f { C+ } "i" } [ "infer ." quot-action ] }
-    { f "Single step" T{ key-down f { C+ } "w" } [ "walk" quot-action ] }
+    { f "Stack effect" T{ key-down f { C+ A+ } "i" } [ "infer ." quot-action ] }
+    { f "Single step" T{ key-down f { C+ A+ } "w" } [ "walk" quot-action ] }
     { f "See" T{ key-down f { A+ } "s" } [ [ search see ] word-action ] }
     { f "Help" T{ key-down f { A+ } "h" } [ [ search help ] word-action ] }
     { f "Callers" T{ key-down f { A+ } "u" } [ [ search usage. ] word-action ] }