anchor.diff:  \ *****************************************************************************
  -\ * Copyright (c) 2004, 2008 IBM Corporation
  +\ * Copyright (c) 2004, 2011 IBM Corporation
   \ * All rights reserved.
   \ * This program and the accompanying materials
   \ * are made available under the terms of the BSD License
  
positive.code: 
  INSTANCE VARIABLE data
  INSTANCE VARIABLE #data
  
  : free-data
    data @ ?dup IF #data @ free-mem  0 data ! THEN ;
  
negative.code: : read-inode ( inode# -- )
    1- inodes/group @ u/mod \ # in group, group #
    20 * group-descriptors @ + 8 + l@-le block-size @ * \ # in group, inode table
    swap inode-size @ * + xlsplit seek drop  inode @ inode-size @ read drop
  ;
  
  : .rwx ( bits last-char-if-special special? -- )
    rot dup 4 and IF ." r" ELSE ." -" THEN
  