anchor.diff:      with
       | exn -> ()
   
  -let rec annotateDirectoryNode (ownerType: ProvidedTypeDefinition) (dir: DirectoryInfo) propertyName withParent relative ctx () =
  -    watch dir.FullName ctx
  +let rec annotateDirectoryNode (ownerType: ProvidedTypeDefinition) (dir: DirectoryInfo) propertyName withParent relative watch ctx () =
  +    if watch then
  +        watchDir dir.FullName ctx
  +
       ownerType.HideObjectMethods <- true
       ownerType.AddXmlDoc(sprintf "A strongly typed interface to '%s'" dir.FullName)
   
  
positive.code:                 match relative with
                  | Some sourcePath -> Some((fixDirectoryPath sourcePath) + "..\\")
                  | None -> None
              ownerType.AddMemberDelayed (createDirectoryNode typeSet dir.Parent ".." withParent relative ctx)
          with
          | exn -> ()
  
  
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,
  