--- a/Object.st	Wed Oct 14 23:08:51 2009 +0200
+++ b/Object.st	Wed Oct 14 23:15:25 2009 +0200
@@ -612,6 +612,12 @@
     ]
 !
 
+inform: aString
+    "Display a message for the user to read and then dismiss."
+
+    self information:aString
+!
+
 isInMemory
     "All normal objects are."
 
@@ -7133,7 +7139,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
 askFor:aSelector
@@ -9260,11 +9265,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.636 2009-10-06 10:38:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.637 2009-10-14 21:15:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.636 2009-10-06 10:38:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.637 2009-10-14 21:15:25 cg Exp $'
 ! !
 
 Object initialize!