diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index ef2bfd3d55..cc138dad92 100755
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -82,10 +82,10 @@ M: irc-message write-irc
     <scrolling-pane>
     [ <pane-stream> swap display ] keep ;
 
-TUPLE: irc-editor outstream listener client ;
+TUPLE: irc-editor < editor outstream listener client ;
 
 : <irc-editor> ( pane listener client -- editor )
-    [ <editor> irc-editor construct-editor
+    [ irc-editor new-editor
     swap >>listener swap <pane-stream> >>outstream
     ] dip client>> >>client ;
 
diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor
index 1b4f633609..7c663f88e3 100755
--- a/extra/ui/gadgets/tabs/tabs.factor
+++ b/extra/ui/gadgets/tabs/tabs.factor
@@ -51,6 +51,6 @@ DEFER: (del-page)
     tabbed new-frame
     [ g 0 <model> >>model
       <pile> 1 >>fill [ >>toggler ] keep swap @left grid-add
-      [ keys g swap >>names ]
+      [ keys >vector g swap >>names ]
       [ values g model>> <book> [ >>content ] keep swap @center grid-add ] bi
       g redo-toggler g ] with-gadget ;