From 5122e137d4ff85fe8aa1a1c9a4571be59e762a13 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 15:21:14 -0500
Subject: [PATCH] bug i introduced -- reload was leaving a vocab object on
 stack

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

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 9a8e3fdce3..8609cb5b5f 100755
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -67,7 +67,7 @@ SYMBOL: load-help?
 
 : reload ( name -- )
     [
-        dup vocab [ dup load-source load-docs ] [ no-vocab ] ?if
+        dup vocab [ load-source load-docs drop ] [ no-vocab ] ?if
     ] with-compiler-errors ;
 
 : require ( vocab -- )