ExternalStreamMonitor.st
changeset 17616 7fae9311f5f3
parent 17487 23f1dd7e6afb
child 17622 35c4fcfb1fc9
--- a/ExternalStreamMonitor.st	Wed Aug 09 23:57:34 2017 +0200
+++ b/ExternalStreamMonitor.st	Thu Aug 10 16:18:21 2017 +0200
@@ -348,7 +348,11 @@
                 OperatingSystem isMSWINDOWSlike ifTrue:[
                     aStream isOpen ifTrue:[
                         handle := aStream fileHandle.
-                        handleString := handle address hexPrintString
+                        handle isInteger ifTrue:[
+                            handleString := handle printString
+                        ] ifFalse:[
+                            handleString := (handle address ? 0) hexPrintString
+                        ].
                     ].
                     handleString := (handleString ? '') leftPaddedTo:7
                 ] ifFalse:[