--- gforth/cross.fs	2006/02/12 23:45:53	1.152
+++ gforth/cross.fs	2006/02/18 13:12:52	1.153
@@ -2821,8 +2821,8 @@ by Create
 \ Variable tudp 0 tudp !
 
 : u,  ( n -- udp )
-  current-region >r user-region activate .regions
-  X here swap X , tup@ - .regions
+  current-region >r user-region activate
+  X here swap X , tup@ -
   r> activate ;
 
 : au, ( n -- udp )