--- gforth/kernel/vars.fs	2011/04/13 20:11:12	1.48
+++ gforth/kernel/vars.fs	2011/11/16 01:25:58	1.49
@@ -199,7 +199,9 @@ 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
+has? ec [IF]
+    AUser LastCFA
+[THEN]
 AUser Last
 
 has? flash [IF]