--- a/Object.st	Tue Jan 22 15:11:02 2013 +0100
+++ b/Object.st	Tue Jan 22 15:11:31 2013 +0100
@@ -548,6 +548,22 @@
     self expressInterestIn:anAspect for:anObject sendBack:anAspect
 ! !
 
+!Object methodsFor:'Compatibility-GNU'!
+
+display
+    "print the receiver on the standard output stream (which is not the Transcript).
+     Added for GNU-ST compatibility"
+
+    self print
+!
+
+displayNl
+    "print the receiver followed by a cr on the standard output stream (which is not the Transcript).
+     Added for GNU-ST compatibility"
+
+    self printCR
+! !
+
 !Object methodsFor:'Compatibility-ST/V'!
 
 triggerEvent:aSymbol
@@ -9615,11 +9631,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.707 2013-01-22 09:58:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.708 2013-01-22 14:11:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.707 2013-01-22 09:58:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.708 2013-01-22 14:11:31 cg Exp $'
 !
 
 version_SVN