--- a/Cursor.st	Mon May 18 16:13:14 2009 +0200
+++ b/Cursor.st	Tue May 26 08:36:49 2009 +0200
@@ -3382,6 +3382,8 @@
 !Cursor methodsFor:'printing'!
 
 printOn:aStream
+    "append a printed representation to aStream"
+
     self className printOn:aStream.
     aStream nextPut:$(.
     shape printOn:aStream.
@@ -3523,7 +3525,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.108 2009-05-18 14:13:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.109 2009-05-26 06:36:49 cg Exp $'
 ! !
 
 Cursor initialize!