--- a/Interval.st	Mon Aug 05 19:11:14 2002 +0200
+++ b/Interval.st	Wed Aug 07 13:37:15 2002 +0200
@@ -289,6 +289,15 @@
 
 !Interval methodsFor:'printing & storing'!
 
+displayString
+    ^ self printString
+
+    "
+     (1 to:10) 
+     (1 to:10 by:2) 
+    "
+!
+
 printOn:aStream
     "append a printed representation to aStream"
 
@@ -400,5 +409,5 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.31 2002-07-31 08:39:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.32 2002-08-07 11:37:15 cg Exp $'
 ! !