--- a/StreamError.st	Thu Feb 04 10:13:26 2010 +0100
+++ b/StreamError.st	Thu Feb 04 12:42:34 2010 +0100
@@ -9,11 +9,10 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 ProceedableError subclass:#StreamError
-	instanceVariableNames:''
+	instanceVariableNames:'errorCode'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Exceptions-Errors'
@@ -41,8 +40,22 @@
 "
 ! !
 
+!StreamError methodsFor:'accessing'!
+
+errorCode
+    ^ errorCode
+!
+
+errorCode:something
+    errorCode := something.
+! !
+
 !StreamError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.6 2004-09-01 16:33:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.7 2010-02-04 11:42:34 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.7 2010-02-04 11:42:34 stefan Exp $'
 ! !