--- a/StreamError.st	Mon Jul 29 10:30:20 2013 +0000
+++ b/StreamError.st	Mon Jul 29 10:09:49 2013 +0200
@@ -42,6 +42,19 @@
 
 !StreamError methodsFor:'accessing'!
 
+errorCategory
+    "return the generi OS independent error category.
+     return #unknown, if this is not an OS error"
+
+    |holder|
+
+    holder := self osErrorHolder.
+    holder isNil ifTrue:[
+        ^ #unknown
+    ].
+    ^ holder errorCategory.
+!
+
 errorCode
     ^ errorCode
 !
@@ -67,10 +80,10 @@
 !StreamError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.8 2013-07-09 11:57:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.9 2013-07-29 08:09:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.8 2013-07-09 11:57:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.9 2013-07-29 08:09:49 stefan Exp $'
 ! !