--- a/GenericException.st	Thu Nov 24 17:55:12 2016 +0100
+++ b/GenericException.st	Thu Nov 24 17:55:31 2016 +0100
@@ -224,6 +224,7 @@
     self raiseErrorString:messageText
 ! !
 
+
 !GenericException class methodsFor:'accessing'!
 
 errorString
@@ -1106,6 +1107,10 @@
 
 !GenericException class methodsFor:'testing'!
 
+isAbstract
+    ^ self == GenericException
+!
+
 isControlInterrupt
     ^ false