--- gforth/Attic/interpretation.fs	1996/05/09 18:13:00	1.2
+++ gforth/Attic/interpretation.fs	1996/05/13 16:36:59	1.3
@@ -44,7 +44,7 @@ table constant interpretation-semantics
     restrict
     lastcfa cell nextname \ !! use nfa instead of cfa
     get-current >r
-    interpretation-semantics set-current : reveal
+    interpretation-semantics set-current :
     r> set-current ;
 
 \ !! split notfound and sfnumber in a compiler and an interpreter part?