diff --git a/extra/ui/gadgets/frames/frames-docs.factor b/extra/ui/gadgets/frames/frames-docs.factor
index 890836dcaa..36c7feed97 100755
--- a/extra/ui/gadgets/frames/frames-docs.factor
+++ b/extra/ui/gadgets/frames/frames-docs.factor
@@ -7,7 +7,7 @@ ARTICLE: "ui-frame-layout" "Frame layouts"
{ $subsection frame }
"Creating empty frames:"
{ $subsection }
-"A set of mnemonic words for the positions on a frame's 3x3 grid; these words push values which may be passed to " { $link grid-add* } ":"
+"A set of mnemonic words for the positions on a frame's 3x3 grid; these words push values which may be passed to " { $link grid-add } ":"
{ $subsection @center }
{ $subsection @left }
{ $subsection @right }
@@ -20,7 +20,7 @@ ARTICLE: "ui-frame-layout" "Frame layouts"
: $ui-frame-constant ( element -- )
drop
- { $description "Symbolic constant for a common input to " { $link grid-add* } "." } print-element ;
+ { $description "Symbolic constant for a common input to " { $link grid-add } "." } print-element ;
HELP: @center $ui-frame-constant ;
HELP: @left $ui-frame-constant ;
@@ -35,7 +35,7 @@ HELP: @bottom-right $ui-frame-constant ;
HELP: frame
{ $class-description "A frame is a gadget which lays out its children in a 3x3 grid. If the frame is enlarged past its preferred size, the center gadget fills up available room."
$nl
-"Frames are constructed by calling " { $link } " and since they inherit from " { $link grid } ", children can be managed with " { $link grid-add* } " and " { $link grid-remove } "." } ;
+"Frames are constructed by calling " { $link } " and since they inherit from " { $link grid } ", children can be managed with " { $link grid-add } " and " { $link grid-remove } "." } ;
HELP:
{ $values { "frame" frame } }
diff --git a/extra/ui/gadgets/labelled/labelled.factor b/extra/ui/gadgets/labelled/labelled.factor
index 831ac1b1d8..bd775a2d39 100755
--- a/extra/ui/gadgets/labelled/labelled.factor
+++ b/extra/ui/gadgets/labelled/labelled.factor
@@ -39,8 +39,8 @@ M: labelled-gadget focusable-child* labelled-gadget-content ;
: ( title quot -- gadget )
- swap dup [ @left grid-add* ] [ drop ] if
- swap @center grid-add* ;
+ swap dup [ @left grid-add ] [ drop ] if
+ swap @center grid-add ;
TUPLE: closable-gadget < frame content ;
@@ -49,8 +49,8 @@ TUPLE: closable-gadget < frame content ;
: ( gadget title quot -- gadget )
closable-gadget new-frame
- -rot @top grid-add*
+ -rot @top grid-add
swap >>content
- dup content>> @center grid-add* ;
+ dup content>> @center grid-add ;
M: closable-gadget focusable-child* closable-gadget-content ;
diff --git a/extra/ui/gadgets/scrollers/scrollers.factor b/extra/ui/gadgets/scrollers/scrollers.factor
index f45f40c805..ed825824ef 100755
--- a/extra/ui/gadgets/scrollers/scrollers.factor
+++ b/extra/ui/gadgets/scrollers/scrollers.factor
@@ -38,11 +38,11 @@ scroller H{
>>model
faint-boundary
- dup model>> dependencies>> first >>x dup x>> @bottom grid-add*
- dup model>> dependencies>> second >>y dup y>> @right grid-add*
+ dup model>> dependencies>> first >>x dup x>> @bottom grid-add
+ dup model>> dependencies>> second >>y dup y>> @right grid-add
swap over model>> >>viewport
- dup viewport>> @center grid-add* ;
+ dup viewport>> @center grid-add ;
: ( gadget -- scroller ) scroller new-scroller ;
diff --git a/extra/ui/gadgets/sliders/sliders.factor b/extra/ui/gadgets/sliders/sliders.factor
index fba5f5df48..b67edeaea3 100755
--- a/extra/ui/gadgets/sliders/sliders.factor
+++ b/extra/ui/gadgets/sliders/sliders.factor
@@ -130,7 +130,7 @@ M: elevator layout*
tuck >>elevator
swap >>thumb
dup elevator>> over thumb>> add-gadget
- @center grid-add* ;
+ @center grid-add ;
: ( -- button ) { 0 1 } arrow-left -1 ;
: ( -- button ) { 0 1 } arrow-right 1 ;
@@ -145,15 +145,15 @@ M: elevator layout*
: ( range -- slider )
{ 1 0 }
- @left grid-add*
+ @left grid-add
{ 0 1 } elevator,
- @right grid-add* ;
+ @right grid-add ;
: ( range -- slider )
{ 0 1 }
- @top grid-add*
+ @top grid-add
{ 1 0 } elevator,
- @bottom grid-add* ;
+ @bottom grid-add ;
M: slider pref-dim*
dup call-next-method