--- gforth/Attic/main.c	1994/07/13 19:21:04	1.8
+++ gforth/Attic/main.c	1994/08/25 15:25:30	1.9
@@ -1,5 +1,5 @@
 /*
-  $Id: main.c,v 1.8 1994/07/13 19:21:04 pazsan Exp $
+  $Id: main.c,v 1.9 1994/08/25 15:25:30 anton Exp $
   Copyright 1993 by the ANSI figForth Development Group
 */
 
@@ -63,7 +63,9 @@ void relocate(int *image, char *bitstrin
 		case CF(DOCOL)   :
 		case CF(DOVAR)   :
 		case CF(DOCON)   :
-		case CF(DOUSER)  : MAKE_CF(image+i,symbols[CF(image[i])]); break;
+		case CF(DOUSER)  : 
+		case CF(DODEFER)  : 
+		  MAKE_CF(image+i,symbols[CF(image[i])]); break;
 		case CF(DODOES)  : MAKE_DOES_CF(image+i,image[i+1]+((int)image));
 		                   break;
 		case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;