anchor.diff:              try
                   let name = subDir.Name // Pull out name first to verify permissions
                   let fullName = subDir.FullName
  -                ownerType.AddMemberDelayed (createDirectoryNode typeSet subDir name false relative ctx)
  +                ownerType.AddMemberDelayed (createDirectoryNode typeSet subDir name false relative watch ctx)
               with
               | exn -> ()
       with
  
positive.code:     with
      | exn -> ()
  
  let rec annotateDirectoryNode (ownerType: ProvidedTypeDefinition) (dir: DirectoryInfo) propertyName withParent relative ctx () =
      watch dir.FullName ctx
      ownerType.HideObjectMethods <- true
      ownerType.AddXmlDoc(sprintf "A strongly typed interface to '%s'" dir.FullName)
  
  
negative.code:     let path = Uri.UnescapeDataString(relative.ToString())
      path.Replace(Path.AltDirectorySeparatorChar, Path.DirectorySeparatorChar)
  
  let watchDir dir (ctx : Context) =    
      let watcher = 
          new FileSystemWatcher(
                  Path.GetFullPath dir, IncludeSubdirectories = false,
  