anchor.diff:                  match relative with
                   | Some sourcePath -> Some((fixDirectoryPath sourcePath) + "..\\")
                   | None -> None
  -            ownerType.AddMemberDelayed (createDirectoryNode typeSet dir.Parent ".." withParent relative ctx)
  +            ownerType.AddMemberDelayed (createDirectoryNode typeSet dir.Parent ".." withParent relative watch ctx)
           with
           | exn -> ()
   
  
positive.code:             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)
              with
              | exn -> ()
      with
  
negative.code:     with
      | exn -> ()
  
  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)
  
  