--- a/ans-report.fs	2010-08-17 19:11:14.000000000 -0400
+++ b/ans-report.fs	2010-08-17 19:11:22.000000000 -0400
@@ -38,8 +38,7 @@
 
 \ !! ignore struct-voc stuff (dummy, [then] etc.).
 
-vocabulary ans-report-words
-get-current also ans-report-words definitions
+vocabulary ans-report-words ans-report-words definitions
 
 : wordset ( "name" -- )
     latestxt >body
@@ -172,7 +171,7 @@
     cell +loop
     drop ;
 
-set-current
+forth definitions
 ans-report-words
 
 : print-ans-report ( -- )
@@ -196,4 +195,4 @@
 \ the following sequence "' replace-word forth execute" is necessary
 \ to restore the default search order without effect on the "used
 \ word" lists
-' find&note-name ' find-name ' replace-word previous execute
+' find&note-name ' find-name ' replace-word forth execute