From b7fd4bb76593d109e56feed4602cd47b55a0d951 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Aug 2008 02:51:16 -0500
Subject: [PATCH] new accessors

---
 basis/tools/walker/debug/debug.factor | 2 +-
 basis/tools/walker/walker.factor      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/tools/walker/debug/debug.factor b/basis/tools/walker/debug/debug.factor
index 2b252404d6..f2155ec125 100755
--- a/basis/tools/walker/debug/debug.factor
+++ b/basis/tools/walker/debug/debug.factor
@@ -27,5 +27,5 @@ IN: tools.walker.debug
 
         p ?promise
         variables>> walker-continuation swap at
-        model-value data>>
+        value>> data>>
     ] ;
diff --git a/basis/tools/walker/walker.factor b/basis/tools/walker/walker.factor
index cb5283e797..9c6b87b439 100755
--- a/basis/tools/walker/walker.factor
+++ b/basis/tools/walker/walker.factor
@@ -163,7 +163,7 @@ SYMBOL: +stopped+
     ] change-frame ;
 
 : status ( -- symbol )
-    walker-status tget model-value ;
+    walker-status tget value>> ;
 
 : set-status ( symbol -- )
     walker-status tget set-model ;