From ef29d6263de0dcb55abefd9fdd7d6eae07543198 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 16 May 2009 16:57:58 -0500
Subject: [PATCH] Fix regression with see'ing gensyms

---
 basis/see/see-tests.factor | 4 +++-
 basis/see/see.factor       | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/see/see-tests.factor b/basis/see/see-tests.factor
index 3f11ec987e..ba81bf5e2f 100644
--- a/basis/see/see-tests.factor
+++ b/basis/see/see-tests.factor
@@ -1,5 +1,5 @@
 IN: see.tests
-USING: see tools.test io.streams.string math ;
+USING: see tools.test io.streams.string math words ;
 
 CONSTANT: test-const 10
 [ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ]
@@ -9,3 +9,5 @@ ALIAS: test-alias +
 
 [ "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" ]
 [ [ \ test-alias see ] with-string-writer ] unit-test
+
+[ ] [ gensym see ] unit-test
\ No newline at end of file
diff --git a/basis/see/see.factor b/basis/see/see.factor
index d2515a2e81..a8d78a68e4 100644
--- a/basis/see/see.factor
+++ b/basis/see/see.factor
@@ -44,7 +44,7 @@ M: word print-stack-effect? drop t ;
 <PRIVATE
 
 : seeing-word ( word -- )
-    vocabulary>> vocab pprinter-in set ;
+    vocabulary>> dup [ vocab ] when pprinter-in set ;
 
 : word-synopsis ( word -- )
     {