--- a/ByteArray.st	Mon Nov 04 15:46:37 2002 +0100
+++ b/ByteArray.st	Mon Nov 04 15:47:11 2002 +0100
@@ -85,14 +85,15 @@
 !
 
 fromHexString:aString
-    "Dolphin compatibility: decode a byteArray from a hex string"
+    "Dolphin compatibility: 
+    decode a byteArray from a hex string"
 
     |sz       "{ Class: SmallInteger }"
      chars s bytes|
 
     sz := aString size.
     sz == 0 ifTrue:[^ self new].
-    sz odd ifTrue:[self error:'invalid hex string'.].
+    sz odd ifTrue:[self error:'invalid hex string (odd size)'.].
 
     bytes := self new:(sz // 2).
     s := aString readStream.
@@ -3259,5 +3260,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.147 2002-11-04 14:46:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.148 2002-11-04 14:47:11 cg Exp $'
 ! !