--- a/ExternalStream.st	Mon Jul 08 21:27:29 2013 +0200
+++ b/ExternalStream.st	Tue Jul 09 00:17:30 2013 +0200
@@ -2458,17 +2458,17 @@
 
     |exClass|
 
-    exClass := (errorNumber == (OperatingSystem errorNumberFor:#ERROR_FILE_NOT_FOUND))
-	ifTrue:[ FileDoesNotExistException ]
-	ifFalse:[ OpenError ].
+    exClass := ((OperatingSystem errorSymbolForNumber:errorNumber) == #ERROR_FILE_NOT_FOUND)
+        ifTrue:[ FileDoesNotExistException ]
+        ifFalse:[ OpenError ].
 
     ^ exClass newException
-	errorCode:errorNumber;
-	"/ cg: initialized lazyly - see #description in OpenError
-	"/ errorString:(' : ' , (OperatingSystem errorTextForNumber:errorNumber));
-	parameter:self;
-	raiseRequest
-	"/ in:thisContext sender
+        errorCode:errorNumber;
+        "/ cg: initialized lazyly - see #description in OpenError
+        "/ errorString:(' : ' , (OperatingSystem errorTextForNumber:errorNumber));
+        parameter:self;
+        raiseRequest
+        "/ in:thisContext sender
 
     "Modified: / 09-09-2011 / 07:22:49 / cg"
 !
@@ -5761,11 +5761,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.368 2013-07-08 13:37:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.369 2013-07-08 22:17:30 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.368 2013-07-08 13:37:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.369 2013-07-08 22:17:30 stefan Exp $'
 ! !