--- a/OpenError.st	Sun Dec 07 21:30:01 2008 +0100
+++ b/OpenError.st	Mon Dec 08 12:50:45 2008 +0100
@@ -39,7 +39,11 @@
 pathName
     "the name of the file/device which failed to open"
 
-    ^ parameter asFilename pathName
+    (parameter isNil or:[parameter isString]) ifTrue:[
+        ^ parameter
+    ].
+
+    ^ parameter pathName
 
     "Modified: / 16-01-2008 / 20:24:24 / cg"
 !
@@ -71,5 +75,5 @@
 !OpenError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenError.st,v 1.8 2008-01-17 09:13:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenError.st,v 1.9 2008-12-08 11:50:45 stefan Exp $'
 ! !