--- a/Method.st	Wed Aug 29 10:36:36 2018 +0200
+++ b/Method.st	Wed Aug 29 12:45:33 2018 +0200
@@ -775,14 +775,6 @@
     "Modified (comment): / 27-01-2012 / 21:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-setAnnotations: anObject
-    "set the annotations (low level - use do not use)"
-
-    annotations :=  anObject
-
-    "Created: / 20-05-2010 / 11:27:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 setCategory:aStringOrSymbol
     "set the method's category (without change notification)"
 
@@ -2381,6 +2373,15 @@
     "Modified: / 26-11-2006 / 22:33:38 / cg"
 !
 
+setAnnotations: anObject
+    "set the annotations (low level - do not use)"
+
+    annotations :=  anObject
+
+    "Created: / 20-05-2010 / 11:27:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 29-08-2018 / 10:25:51 / Claus Gittinger"
+!
+
 setLookupObject: lookup
     "set the lookupObject (low level - use lookupObject:)"