--- a/Annotation.st	Fri Nov 25 16:43:49 2011 +0100
+++ b/Annotation.st	Tue Nov 29 11:19:47 2011 +0100
@@ -503,12 +503,13 @@
 
     aStream nextPutAll: '(Annotation resource: '.
     type storeOn: aStream.
-    value ifNotNil:
+    value notNil ifTrue:
         [aStream nextPutAll: ' value: '.
         value storeOn: aStream].    
     aStream nextPut:$)
 
     "Modified: / 16-07-2010 / 11:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-11-2011 / 11:19:06 / cg"
 ! !
 
 !Annotation::Resource methodsFor:'processing'!
@@ -597,11 +598,11 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.6 2011-09-09 05:16:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.7 2011-11-29 10:19:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.6 2011-09-09 05:16:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.7 2011-11-29 10:19:47 cg Exp $'
 !
 
 version_SVN