--- gforth/Attic/vars.fs	1994/05/05 15:46:53	1.2
+++ gforth/Attic/vars.fs	1994/05/07 14:56:07	1.3
@@ -57,7 +57,11 @@ AUser "error            0 "error !
  User dpl               -1 dpl !
 
  User state             0 state !
-AUser dp
+AUser normal-dp		\ the usual dictionary pointer
+AUser dpp		normal-dp dpp !
+			\ the pointer to the current dictionary pointer
+                        \ ist reset to normal-dp on (doerror)
+                        \  (i.e. any throw caught by quit)
 AUser LastCFA
 AUser Last