diff --git a/extra/concurrency/flags/flags-tests.factor b/extra/concurrency/flags/flags-tests.factor
index d13c474554..9d3f6de98c 100755
--- a/extra/concurrency/flags/flags-tests.factor
+++ b/extra/concurrency/flags/flags-tests.factor
@@ -1,12 +1,12 @@
 IN: concurrency.flags.tests
 USING: tools.test concurrency.flags concurrency.combinators
-kernel threads locals ;
+kernel threads locals accessors ;
 
 :: flag-test-1 ( -- )
     [let | f [ <flag> ] |
         [ f raise-flag ] "Flag test" spawn drop
         f lower-flag
-        f flag-value?
+        f value>>
     ] ;
 
 [ f ] [ flag-test-1 ] unit-test
@@ -15,7 +15,7 @@ kernel threads locals ;
     [let | f [ <flag> ] |
         [ 1000 sleep f raise-flag ] "Flag test" spawn drop
         f lower-flag
-        f flag-value?
+        f value>>
     ] ;
 
 [ f ] [ flag-test-2 ] unit-test
@@ -23,7 +23,7 @@ kernel threads locals ;
 :: flag-test-3 ( -- )
     [let | f [ <flag> ] |
         f raise-flag
-        f flag-value?
+        f value>>
     ] ;
 
 [ t ] [ flag-test-3 ] unit-test
@@ -32,7 +32,7 @@ kernel threads locals ;
     [let | f [ <flag> ] |
         [ f raise-flag ] "Flag test" spawn drop
         f wait-for-flag
-        f flag-value?
+        f value>>
     ] ;
 
 [ t ] [ flag-test-4 ] unit-test
@@ -41,7 +41,7 @@ kernel threads locals ;
     [let | f [ <flag> ] |
         [ 1000 sleep f raise-flag ] "Flag test" spawn drop
         f wait-for-flag
-        f flag-value?
+        f value>>
     ] ;
 
 [ t ] [ flag-test-5 ] unit-test