--- a/Cursor.st	Fri Jan 10 19:22:41 1997 +0100
+++ b/Cursor.st	Fri Jan 10 19:40:01 1997 +0100
@@ -1903,7 +1903,7 @@
             ].
         ].
         (sF isNil or:[mF isNil]) ifTrue:[
-            'CURSOR: cursor has no form' errorPrintNL.
+            'Cursor [warning]: cursor has no form' errorPrintCR.
             ^ self
         ].
         w := sourceForm width.
@@ -1951,7 +1951,7 @@
     Lobby register:newCursor.
     ^ newCursor
 
-    "Modified: 10.1.1997 / 17:35:12 / cg"
+    "Modified: 10.1.1997 / 19:08:20 / cg"
 !
 
 restored
@@ -1988,6 +1988,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.41 1997-01-10 18:05:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.42 1997-01-10 18:40:01 cg Exp $'
 ! !
 Cursor initialize!