Set DirSyncGDiff$Dir <Obey$Dir>

If "<DiffUtils$Dir>"="" Then IfThere <Apps$Dir>.Text.!DiffUtils.!Boot Then Run <Apps$Dir>.Text.!DiffUtils.!Boot
IfThere <DiffUtils$Dir>.gdiff Then Else Error "This operation needs the DiffUtils package. Please install it to do this."

RMEnsure DDEUtils 0 IfThere System:Modules.DDEUtils Then RMLoad System:Modules.DDEUtils Else Error You need DDEUtils in your !System directory for this functionality to work.
IfThere Boot:Utils.HOn Then Run Boot:Utils.HOn { > null: }
CDir <Wimp$ScrapDir>.DirSync
<DiffUtils$Dir>.gdiff %0 %1 > <Wimp$ScrapDir>.DirSync.Diff
<DirSyncGDiff$Dir>.GDiffThrow %0 %1 <Wimp$ScrapDir>.DirSync.Diff
IfThere Boot:Utils.HOff Then Run Boot:Utils.HOff
