diff --git a/basis/models/models.factor b/basis/models/models.factor
index 642508e91d..45519f7021 100755
--- a/basis/models/models.factor
+++ b/basis/models/models.factor
@@ -97,7 +97,7 @@ M: model update-model drop ;
     ((change-model)) set-model ; inline
 
 : (change-model) ( model quot -- )
-    ((change-model)) swap >>value drop ; inline
+    ((change-model)) (>>value) ; inline
 
 GENERIC: range-value ( model -- value )
 GENERIC: range-page-value ( model -- value )