From 0f3d585dd2e5ffd2209bbfd9219066bd13657a04 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 12:34:45 -0500
Subject: [PATCH] new accessors

---
 core/parser/parser.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index c3742786b2..487d75cc6c 100755
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -216,7 +216,7 @@ SYMBOL: interactive-vocabs
 : filter-moved ( assoc1 assoc2 -- seq )
     swap assoc-diff [
         drop where dup [ first ] when
-        file get source-file-path =
+        file get path>> =
     ] assoc-filter keys ;
 
 : removed-definitions ( -- assoc1 assoc2 )