add interpretative UADDR/UTO to cross.fs

cross.fs

@@ -3859,8 +3859,9 @@ Cond: IS        cross-record-name T ' >body H compile ALiteral compile ! ;Cond
 Cond: TO        T ' >body H compile ALiteral compile ! ;Cond
 : TO            T ' >body ! H ;
 Cond: UTO       compile useraddr T ' >body @ , H compile ! ;Cond
-: UTO           T ' >body @ H tup@ + X ! ;
 Cond: UADDR     compile useraddr T ' >body @ , H ;Cond
+: UADDR         T ' >body @ H tup@ + ;
+: UTO           UADDR X ! ;
 [THEN]
 
 Cond: defers	T ' >body @ compile, H ;Cond