--- a/ExternalStream.st	Fri Oct 26 11:56:21 2012 +0200
+++ b/ExternalStream.st	Fri Oct 26 12:25:03 2012 +0200
@@ -2273,27 +2273,27 @@
 !ExternalStream methodsFor:'error handling'!
 
 argumentMustBeCharacter
+    "report an error, that the argument must be a character in 0..FF"
+
     "{ Pragma: +optSpace }"
 
-    "report an error, that the argument must be a character in 0..FF"
-
-    ^ self error:'argument must be a single byte character'
+    ArgumentError raiseErrorString:' - argument must be a single byte character'
 !
 
 argumentMustBeInteger
+    "report an error, that the argument must be an integer"
+
     "{ Pragma: +optSpace }"
 
-    "report an error, that the argument must be an integer"
-
-    ^ self error:'argument must be an integer'
+    ArgumentError raiseErrorString:' - argument must be an integer'
 !
 
 argumentMustBeString
+    "report an error, that the argument must be a string"
+
     "{ Pragma: +optSpace }"
 
-    "report an error, that the argument must be a string"
-
-    ^ self error:'argument must be a string'
+    ArgumentError raiseErrorString:' - argument must be a string'
 !
 
 errorAlreadyOpen
@@ -5693,11 +5693,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.350 2012-10-26 09:55:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.351 2012-10-26 10:25:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.350 2012-10-26 09:55:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.351 2012-10-26 10:25:03 stefan Exp $'
 ! !
 
 ExternalStream initialize!