--- a/Annotation.st	Tue May 28 21:11:40 2019 +0200
+++ b/Annotation.st	Wed May 29 00:47:07 2019 +0200
@@ -427,6 +427,14 @@
 	^ self arguments at: anInteger.
 !
 
+argumentAt:anInteger ifAbsent:exceptionValue
+    "Answer one of the arguments of the pragma or exceptionValue's value if not present."
+        
+    ^ self arguments at: anInteger ifAbsent:exceptionValue.
+
+    "Created: / 29-05-2019 / 00:46:47 / Claus Gittinger"
+!
+
 argumentCount
     "Answer the number of arguments in the pragma."