--- a/ExternalStream.st	Mon Feb 08 11:42:29 2010 +0100
+++ b/ExternalStream.st	Mon Feb 08 11:43:33 2010 +0100
@@ -2224,8 +2224,12 @@
     "close the stream - tell operating system"
 
     self isOpen ifTrue:[
-	Lobby unregister:self.
-	self closeFile.
+        Lobby unregister:self.
+        PrimitiveFailure handle:[:ex |
+            ('ExternalStream [info] error in close cought (%1).' bindWith:self printString) errorPrintCR.
+        ] do:[
+            self closeFile.
+        ].
     ]
 !
 
@@ -5689,11 +5693,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.337 2010-02-04 17:45:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.338 2010-02-08 10:43:33 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.337 2010-02-04 17:45:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.338 2010-02-08 10:43:33 sr Exp $'
 ! !
 
 ExternalStream initialize!