diff --git a/rtl/macos/sysfile.inc b/rtl/macos/sysfile.inc index 7e7f551ad4..389c457619 100644 --- a/rtl/macos/sysfile.inc +++ b/rtl/macos/sysfile.inc @@ -19,7 +19,9 @@ function do_isdevice(handle:longint):boolean; begin - do_isdevice:=false; + do_isdevice:= (handle=StdInputHandle) or + (handle=StdOutputHandle) or + (handle=StdErrorHandle); end; { close a file from the handle value }