--- a/ExternalStream.st	Tue Jul 09 08:42:18 2013 +0000
+++ b/ExternalStream.st	Tue Jul 09 13:56:22 2013 +0200
@@ -2456,17 +2456,19 @@
 
     "{ Pragma: +optSpace }"
 
-    |exClass errorSymbol|
-
-    errorSymbol := OperatingSystem errorSymbolForNumber:errorNumber.
-    exClass := (errorSymbol == #ERROR_FILE_NOT_FOUND or:[errorSymbol == #ENOENT])
+    |exClass errorHolder|
+
+    errorHolder := OperatingSystem errorHolderForNumber:errorNumber.
+
+    exClass := (errorHolder errorCategory == #nonexistentSignal)
         ifTrue:[ FileDoesNotExistException ]
         ifFalse:[ OpenError ].
 
     ^ exClass newException
         errorCode:errorNumber;
-        "/ cg: initialized lazyly - see #description in OpenError
-        "/ errorString:(' : ' , (OperatingSystem errorTextForNumber:errorNumber));
+        osErrorHolder:errorHolder;
+        "/ cg: initialized lazyly - see OpenError>>#description
+        "/ errorString:(' : ' , errorHolder errorString);
         parameter:self;
         raiseRequest
         "/ in:thisContext sender
@@ -5762,11 +5764,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.370 2013-07-08 22:33:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.371 2013-07-09 11:56:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.370 2013-07-08 22:33:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.371 2013-07-09 11:56:22 stefan Exp $'
 ! !