diff --git a/basis/ui/gadgets/packs/packs-tests.factor b/basis/ui/gadgets/packs/packs-tests.factor
index 153579643d..b49f46c05a 100644
--- a/basis/ui/gadgets/packs/packs-tests.factor
+++ b/basis/ui/gadgets/packs/packs-tests.factor
@@ -129,4 +129,11 @@ IN: ui.gadgets.packs.tests
 [ ] [ "g" get layout ] unit-test
 
 [ V{ { 0 0 } { 30 10 } } ]
-[ "g" get children>> [ loc>> ] map ] unit-test
\ No newline at end of file
+[ "g" get children>> [ loc>> ] map ] unit-test
+
+<shelf> +baseline+ >>align
+<gadget> { 24 24 } >>dim add-gadget
+12 9 { 15 15 } <baseline-gadget> add-gadget
+"g" set
+
+[ { 39 24 } ] [ "g" get pref-dim ] unit-test
\ No newline at end of file