diff --git a/basis/ui/gadgets/labeled/labeled-tests.factor b/basis/ui/gadgets/labeled/labeled-tests.factor
new file mode 100644
index 0000000000..ec232c32c4
--- /dev/null
+++ b/basis/ui/gadgets/labeled/labeled-tests.factor
@@ -0,0 +1,4 @@
+IN: ui.gadgets.labeled.tests
+USING: ui.gadgets ui.gadgets.labeled accessors tools.test ;
+
+[ t ] [ <gadget> "Hey" <labeled-gadget> content>> gadget? ] unit-test
\ No newline at end of file
diff --git a/basis/ui/gadgets/labeled/labeled.factor b/basis/ui/gadgets/labeled/labeled.factor
index 7f98e1170b..97d029fe81 100644
--- a/basis/ui/gadgets/labeled/labeled.factor
+++ b/basis/ui/gadgets/labeled/labeled.factor
@@ -27,7 +27,7 @@ PRIVATE>
 
 : <labeled-gadget> ( gadget title -- newgadget )
     labeled-gadget "labeled-block" [
-        over >>content
+        pick >>content
         /-FOO-\
         |-----|
         \-----/