--- a/ArithmeticValue.st	Sat Nov 13 13:53:43 1999 +0100
+++ b/ArithmeticValue.st	Mon Nov 15 20:36:24 1999 +0100
@@ -14,7 +14,7 @@
 	instanceVariableNames:''
 	classVariableNames:'DivisionByZeroSignal DomainErrorSignal OverflowSignal
 		UnderflowSignal ArithmeticSignal AnyArithmeticSignal
-		UnorderedSignal'
+		UnorderedSignal ConversionErrorSignal'
 	poolDictionaries:''
 	category:'Magnitude-Numbers'
 !
@@ -79,6 +79,10 @@
         DomainErrorSignal nameClass:self message:#domainErrorSignal.
         DomainErrorSignal notifierString:'domain error'.
 
+        ConversionErrorSignal := ArithmeticSignal newSignal.
+        ConversionErrorSignal nameClass:self message:#conversionErrorSignal.
+        ConversionErrorSignal notifierString:'conversion error'.
+
         DivisionByZeroSignal := ArithmeticSignal newSignal.
         DivisionByZeroSignal nameClass:self message:#divisionByZeroSignal.
         DivisionByZeroSignal notifierString:'division by zero'.
@@ -103,6 +107,7 @@
     ]
 
     "Modified: / 26.7.1999 / 10:39:56 / stefan"
+    "Modified: / 15.11.1999 / 20:33:46 / cg"
 ! !
 
 !ArithmeticValue class methodsFor:'Signal constants'!
@@ -121,6 +126,15 @@
     ^ ArithmeticSignal
 !
 
+conversionErrorSignal
+    "return the signal which is raised when a conversion fails
+     (such as bcd decoding of an invalid BCD number)"
+
+    ^ ConversionErrorSignal
+
+    "Created: / 15.11.1999 / 20:34:18 / cg"
+!
+
 divisionByZeroSignal
     "return the signal which is raised on division by zero"
 
@@ -899,6 +913,6 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.31 1999-07-26 09:06:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.32 1999-11-15 19:36:24 cg Exp $'
 ! !
 ArithmeticValue initialize!