--- a/ArithmeticError.st	Tue Sep 27 12:51:18 2016 +0200
+++ b/ArithmeticError.st	Tue Sep 27 12:51:20 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2005 by eXept Software AG
               All Rights Reserved
@@ -11,7 +13,9 @@
 "
 "{ Package: 'stx:libbasic' }"
 
-ProceedableError subclass:#ArithmeticError
+"{ NameSpace: Smalltalk }"
+
+ExecutionError subclass:#ArithmeticError
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -40,9 +44,19 @@
 "
 ! !
 
+!ArithmeticError class methodsFor:'testing'!
+
+isProgramError
+    "redefined in all exceptions which are programmer's errors,
+     and which should probably not be ignored.
+     I.e. a global error handler should reject and let a debugger get control."
+
+    ^ true
+! !
+
 !ArithmeticError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticError.st,v 1.8 2013-03-13 23:44:07 cg Exp $'
+    ^ '$Header$'
 ! !