diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor
index 835b2029b6..e195b376ab 100644
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@@ -32,7 +32,7 @@ CONSTANT: elevator-padding 4
 
 : elevator-length ( slider -- n )
     [ elevator>> dim>> ] [ orientation>> ] bi v.
-    elevator-padding 2 * - ;
+    elevator-padding 2 * [-] ;
 
 CONSTANT: min-thumb-dim 30