Fixing web finish.

common/tier2a_forth.fs

@@ -21,4 +21,3 @@
 : >params ( xt -- n ) >flags& 2 + sw@ $ffff and ;
 : >size ( xt -- n ) dup >params cells swap >name-length aligned + 3 cells + ;
 : >link& ( xt -- a ) 2 cells - ;   : >link ( xt -- a ) >link& @ ;
-: >name ( xt -- a n ) dup >name-length swap >link& over aligned - swap ;

common/tier2b_forth.fs

@@ -12,4 +12,12 @@
 \ See the License for the specific language governing permissions and
 \ limitations under the License.
 
+: >name ( xt -- a n )
+  dup >flags 8 and if
+    dup >link swap >name-length
+  else
+    dup >name-length swap >link& over aligned - swap
+  then
+;
+
 : fill32 ( a n v ) swap >r swap r> 0 ?do 2dup ! cell+ loop 2drop ;