--- a/Annotation.st	Tue Jan 13 11:01:53 2015 +0100
+++ b/Annotation.st	Wed Jan 14 14:49:34 2015 +0100
@@ -25,6 +25,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#Annotation
 	instanceVariableNames:'key arguments'
 	classVariableNames:''
@@ -354,6 +356,10 @@
 
 !Annotation methodsFor:'initialization'!
 
+key:keyArg
+    key := keyArg.
+!
+
 key:keyArg arguments:argumentsArg 
     key := keyArg.
     arguments := argumentsArg.
@@ -660,15 +666,15 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.17 2015-01-14 13:49:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.17 2015-01-14 13:49:34 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
+    ^ '$Id: Annotation.st,v 1.17 2015-01-14 13:49:34 cg Exp $'
 ! !