--- gforth/Attic/engine.c	1995/02/22 18:40:13	1.23
+++ gforth/Attic/engine.c	1995/02/23 20:17:18	1.24
@@ -214,6 +214,7 @@ Label *engine(Xt *ip0, Cell *sp0, Cell *
     &&dovar,
     &&douser,
     &&dodefer,
+    &&dostruc,
     &&dodoes,
     &&dodoes,  /* dummy for does handler address */
 #include "prim_labels.i"
@@ -309,6 +310,14 @@ Label *engine(Xt *ip0, Cell *sp0, Cell *
   cfa = *(Xt *)PFA1(cfa);
   NEXT1;
 
+ dostruc:
+#ifdef DEBUG
+  fprintf(stderr,"%08x: struc: %08x\n",(Cell)ip,(Cell)PFA1(cfa));
+#endif
+  TOS += *(Cell*)PFA1(cfa); 
+  NEXT_P0;
+  NEXT;
+
  dodoes:
   /* this assumes the following structure:
      defining-word: