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 -- )
     {