diff --git a/tests/webtbs/tw9985a.pp b/tests/webtbs/tw9985a.pp index bad4bf23f0..256715c01f 100644 --- a/tests/webtbs/tw9985a.pp +++ b/tests/webtbs/tw9985a.pp @@ -15,9 +15,9 @@ begin calls...). } {$ifdef unix} DiskNum := AddDisk('/'); -{$else} +{$else} { dos/windows/os/2 ... Still needs other cases for other OSes } - DiskNum := AddDisk('C:'); + DiskNum := 3; {$endif} Writeln(DiskFree(DiskNum), '/', DiskSize(DiskNum)); if (disksize(3)<>disksize(disknum)) then