diff --git a/basis/ui/tools/browser/history/history-tests.factor b/basis/ui/tools/browser/history/history-tests.factor
index 20b16f450a..454e4700a0 100644
--- a/basis/ui/tools/browser/history/history-tests.factor
+++ b/basis/ui/tools/browser/history/history-tests.factor
@@ -1,7 +1,13 @@
-USING: namespaces ui.tools.browser.history sequences tools.test ;
+USING: namespaces ui.tools.browser.history sequences tools.test
+accessors kernel ;
 IN: ui.tools.browser.history.tests
 
-f <history> "history" set
+TUPLE: dummy obj ;
+
+M: dummy history-value obj>> ;
+M: dummy set-history-value (>>obj) ;
+
+dummy new <history> "history" set
 
 "history" get add-history
 
@@ -9,27 +15,27 @@ f <history> "history" set
 [ t ] [ "history" get forward>> empty? ] unit-test
 
 "history" get add-history
-"history" get 3 >>value drop
+3 "history" get owner>> set-history-value
 
 [ t ] [ "history" get back>> empty? ] unit-test
 [ t ] [ "history" get forward>> empty? ] unit-test
 
 "history" get add-history
-"history" get 4 >>value drop
+4 "history" get owner>> set-history-value
 
 [ f ] [ "history" get back>> empty? ] unit-test
 [ t ] [ "history" get forward>> empty? ] unit-test
 
 "history" get go-back
 
-[ 3 ] [ "history" get value>> ] unit-test
+[ 3 ] [ "history" get owner>> history-value ] unit-test
 
 [ t ] [ "history" get back>> empty? ] unit-test
 [ f ] [ "history" get forward>> empty? ] unit-test
 
 "history" get go-forward
 
-[ 4 ] [ "history" get value>> ] unit-test
+[ 4 ] [ "history" get owner>> history-value ] unit-test
 
 [ f ] [ "history" get back>> empty? ] unit-test
 [ t ] [ "history" get forward>> empty? ] unit-test