--- gforth/struct0x.fs	2007/12/31 18:40:24	1.2
+++ gforth/struct0x.fs	2012/01/02 17:16:52	1.3
@@ -25,8 +25,12 @@
     then
     + ;
 
+: extend-structure ( n "name" -- struct-sys n ) \ Gforth
+    \g extend an existing structure
+    >r 0 value lastxt >body r> ;
+
 : begin-structure ( "name" -- struct-sys 0 ) \ X:structures
-    0 value lastxt >body 0 ;
+    0 extend-structure ;
 
 : end-structure ( struct-sys +n -- ) \ X:structures
     swap ! ;