--- a/Annotation.st	Fri Sep 09 07:16:36 2011 +0200
+++ b/Annotation.st	Fri Sep 09 07:16:45 2011 +0200
@@ -99,9 +99,9 @@
 initialize
     "Invoked at system start or when the class is dynamically loaded."
 
-    Pragma := self.
+    Smalltalk at:#Pragma put:self.
 
-    "Modified: / 20-08-2011 / 21:21:24 / cg"
+    "Modified: / 09-09-2011 / 07:16:26 / cg"
 ! !
 
 !Annotation class methodsFor:'instance creation'!
@@ -596,8 +596,12 @@
 
 !Annotation class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.6 2011-09-09 05:16:45 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.5 2011-09-09 04:18:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.6 2011-09-09 05:16:45 cg Exp $'
 !
 
 version_SVN