--- a/FileDoesNotExistException.st	Mon Nov 07 16:54:34 2016 +0100
+++ b/FileDoesNotExistException.st	Mon Nov 07 17:32:44 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 OpenError subclass:#FileDoesNotExistException
 	instanceVariableNames:''
 	classVariableNames:''
@@ -35,13 +37,29 @@
 "
 ! !
 
+!FileDoesNotExistException methodsFor:'accessing'!
+
+description
+    |pathName|
+
+    (pathName := self pathName) notNil ifTrue:[
+        pathName isFilename ifTrue:[
+            pathName := pathName pathName.
+        ]. 
+        pathName isString ifTrue:[
+            ^ super description,': "',pathName,'"'
+        ].    
+    ].
+    ^ super description
+! !
+
 !FileDoesNotExistException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDoesNotExistException.st,v 1.2 2013-03-06 17:07:42 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDoesNotExistException.st,v 1.2 2013-03-06 17:07:42 cg Exp $'
+    ^ '$Header$'
 ! !