--- a/GenericException.st	Sat Nov 17 17:37:00 2001 +0100
+++ b/GenericException.st	Mon Nov 19 09:07:25 2001 +0100
@@ -2066,9 +2066,17 @@
     originator := origin.
 ! !
 
+!GenericException methodsFor:'testing'!
+
+isException
+    ^ true
+
+    "Created: / 17.11.2001 / 18:37:27 / cg"
+! !
+
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.54 2001-11-16 15:19:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.55 2001-11-19 08:07:25 cg Exp $'
 ! !
 GenericException initialize!