--- a/Filename.st	Thu Jan 03 10:20:11 2013 +0100
+++ b/Filename.st	Fri Jan 04 14:38:39 2013 +0100
@@ -5416,7 +5416,7 @@
     [
         result := aBlock value:stream
     ] ensure:[
-        stream close
+        stream notNil ifTrue:[stream close]
     ].
     ^ result
 
@@ -5907,11 +5907,12 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.382 2012-12-13 13:19:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.383 2013-01-04 13:38:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.382 2012-12-13 13:19:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.383 2013-01-04 13:38:39 cg Exp $'
 ! !
 
+
 Filename initialize!