--- a/ExecutionError.st	Tue Sep 20 11:37:33 2016 +0100
+++ b/ExecutionError.st	Mon Oct 03 12:44:41 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2003 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 ProceedableError subclass:#ExecutionError
 	instanceVariableNames:''
 	classVariableNames:''
@@ -46,16 +50,27 @@
     NotifierString := 'execution error'.
 ! !
 
+!ExecutionError 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
+! !
+
 !ExecutionError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutionError.st,v 1.4 2003/09/05 10:26:58 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
     ^ '$Id: ExecutionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
 ! !
 
+
 ExecutionError initialize!