# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1351247103 -7200
# Node ID 88e708da1ae1cc3e64ec60e2c3e751272f37bbf8
# Parent  49689a5043dc06f86818139e9de833728f20ac91
changed:
        #argumentMustBeCharacter
        #argumentMustBeInteger
        #argumentMustBeString

diff -r 49689a5043dc -r 88e708da1ae1 ExternalStream.st
--- 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!