--- gforth/engine/main.c	2003/08/15 14:07:04	1.119
+++ gforth/engine/main.c	2003/08/16 21:09:47	1.120
@@ -70,8 +70,8 @@ va_alist clist;
 
 void engine_callback(Xt* fcall, void * alist)
 {
-  engine(fcall, SP, RP, FP, LP);
   clist = (va_alist)alist;
+  engine(fcall, SP, RP, FP, LP);
 }
 #endif