From ce72a5de8ee86354ba177efd0fea29c4df5d88fb Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 2 Sep 2008 01:53:37 -0500
Subject: [PATCH] new accessors

---
 basis/mirrors/mirrors-tests.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/mirrors/mirrors-tests.factor b/basis/mirrors/mirrors-tests.factor
index 2eda136ae5..9c8065e062 100755
--- a/basis/mirrors/mirrors-tests.factor
+++ b/basis/mirrors/mirrors-tests.factor
@@ -15,7 +15,7 @@ C: <foo> foo
 [ f f ] [ "hi" 1 2 <foo> <mirror> at* ] unit-test
 
 [ 3 ] [
-    3 "baz" 1 2 <foo> [ <mirror> set-at ] keep foo-baz
+    3 "baz" 1 2 <foo> [ <mirror> set-at ] keep baz>>
 ] unit-test
 
 [ 3 "hi" 1 2 <foo> <mirror> set-at ] must-fail