diff --git a/library/ui/gadgets/controls.factor b/library/ui/gadgets/controls.factor
index 3a27b1b175..b926e0fd00 100644
--- a/library/ui/gadgets/controls.factor
+++ b/library/ui/gadgets/controls.factor
@@ -15,7 +15,7 @@ C: control ( model gadget quot -- gadget )
     control-model model-value ;
 
 : set-control-value ( value control -- )
-    control-model set-model* ;
+    control-model set-model ;
 
 M: control graft*
     control-self dup dup control-model add-connection
diff --git a/library/ui/gadgets/scrolling.factor b/library/ui/gadgets/scrolling.factor
index 224e4db478..4ef360e339 100644
--- a/library/ui/gadgets/scrolling.factor
+++ b/library/ui/gadgets/scrolling.factor
@@ -28,7 +28,7 @@ scroller H{
     { T{ mouse-scroll } [ do-mouse-scroll ] }
 } set-gestures
 
-: init-scroller-model ( scroller -- point )
+: init-scroller-model ( scroller -- )
     dup scroller-x control-model
     over scroller-y control-model
     2array <compose> swap set-scroller-model ;