--- a/CharacterEncoder.st	Sat Mar 20 17:05:37 2004 +0100
+++ b/CharacterEncoder.st	Sat Mar 20 17:24:17 2004 +0100
@@ -224,7 +224,7 @@
     encodingNameSymbol isNil ifTrue:[ ^ NullEncoderInstance].
 
     encodingNameSymbol == #'iso10646-1' ifTrue:[ encodingNameSymbol :=  #'unicode'].
-    encodingNameSymbol isSymbol ifFalse:[self halt:'symbol argument expected'. encodingNameSymbol := encodingNameSymbol asSymbol].
+    encodingNameSymbol isSymbol ifFalse:[encodingNameSymbol := encodingNameSymbol asSymbol].
 
     lcName := encodingNameSymbol asLowercase.
     name := lcName asSymbolIfInterned.
@@ -390,8 +390,8 @@
     newEncoding := newEncodingArg ? #'unicode'.
     newEncoding == #'iso10646-1' ifTrue:[ newEncoding :=  #'unicode'].
 
-    oldEncoding isSymbol ifFalse:[self halt:'symbol argument expected'. oldEncoding := oldEncoding asSymbol].
-    newEncoding isSymbol ifFalse:[self halt:'symbol argument expected'. newEncoding := newEncoding asSymbol].
+    oldEncoding isSymbol ifFalse:[oldEncoding := oldEncoding asSymbol].
+    newEncoding isSymbol ifFalse:[newEncoding := newEncoding asSymbol].
 
     oldEncoding == newEncoding ifTrue:[^ NullEncoderInstance].
     (oldEncoding match:newEncoding) ifTrue:[^ NullEncoderInstance].
@@ -1316,7 +1316,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.82 2004-03-17 16:31:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.83 2004-03-20 16:24:17 cg Exp $'
 ! !
 
 CharacterEncoder initialize!