--- a/Change.st	Tue Jul 24 09:44:39 2012 +0200
+++ b/Change.st	Wed Jul 25 18:12:42 2012 +0200
@@ -80,26 +80,30 @@
 !
 
 changeLanguage
+    "Answer the programming language of the receiver. 
+     Since changesets are currently only supported for Smalltalk, 
+     return SmalltalkLanguage unconditionally"
 
-    "Answer the language of the receiver. Since changesets 
-    are now supported only for Smalltalk, return SmalltalkLanguage
-    unconditionally"
+    ^ SmalltalkLanguage instance
 
-    ^SmalltalkLanguage instance
+    "Modified (comment): / 25-07-2012 / 17:40:47 / cg"
 !
 
 changeSelector
+    "the selector, if it is a method change. Nil oherwise"
+
     ^ nil
 
-    "Created: / 6.2.1998 / 13:29:35 / cg"
+    "Created: / 06-02-1998 / 13:29:35 / cg"
 !
 
 changeSource
-
+    "Return the source of the change"
 
     ^ self source
 
     "Created: / 19-07-2011 / 19:03:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 25-07-2012 / 17:39:24 / cg"
 !
 
 className
@@ -143,12 +147,13 @@
 !
 
 imageSource
-    "Return the source of image thingy or nil if there is no source
-     for given change"
+    "Return the source of the in-image version
+     or nil if there is no source for this change"
 
-    ^nil
+    ^ nil
 
     "Created: / 19-07-2011 / 11:58:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 25-07-2012 / 17:37:23 / cg"
 !
 
 nameSpaceOverride:ns
@@ -499,11 +504,11 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.59 2012-03-20 18:19:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.60 2012-07-25 16:12:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.59 2012-03-20 18:19:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.60 2012-07-25 16:12:42 cg Exp $'
 !
 
 version_SVN