--- a/GenericException.st	Fri Aug 16 19:36:32 2019 +0200
+++ b/GenericException.st	Fri Aug 16 19:38:58 2019 +0200
@@ -1474,6 +1474,15 @@
     "Created: / 5.3.1998 / 16:34:22 / stefan"
 !
 
+parameter:anObject errorString:errorString
+    "set the parameter of the exception"
+
+    parameter := anObject.
+    messageText := errorString.
+
+    "Created: / 5.3.1998 / 16:34:22 / stefan"
+!
+
 proceedable:aBoolean
     "explicitly change the proceedability.
      Normally this gets initialized from the classes idea of whether this makes sense"