--- a/Interval.st	Mon Dec 16 13:37:08 1996 +0100
+++ b/Interval.st	Mon Dec 16 23:36:53 1996 +0100
@@ -43,22 +43,22 @@
 
     examples:
 
-        (1 to:10) do:[:i | Transcript showCR:i]
+	(1 to:10) do:[:i | Transcript showCR:i]
 
       notice, that this is semantically equivalent to:
 
-        1 to:10 do:[:i | Transcript showCR:i]
+	1 to:10 do:[:i | Transcript showCR:i]
 
       however, the second is preferred, since loops using to:do: are
       much faster and do not create temporary garbage objects. 
       Therefore, Intervals are generally NOT used for this kind of loops.
 
-        (1 to:10) asArray  
+	(1 to:10) asArray  
 
-        (1 to:10 by:2) asOrderedCollection  
+	(1 to:10 by:2) asOrderedCollection  
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 ! !
 
@@ -90,6 +90,8 @@
 !
 
 at:index put:anObject
+    "{ Pragma: +optSpace }"
+
     "catch at:put: message - intervals cannot store elements"
 
     self error:'you cannot store into an interval'
@@ -169,12 +171,16 @@
 !Interval methodsFor:'adding/removing elements'!
 
 add:newObject
+    "{ Pragma: +optSpace }"
+
     "catch add message - intervals cannot add elements"
 
     self error:'elements cannot be added to an interval'
 !
 
 remove:anObject
+    "{ Pragma: +optSpace }"
+
     "catch remove message - intervals cannot remove elements"
 
     self error:'elements cannot be removed from an interval'
@@ -293,5 +299,5 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.22 1996-05-18 15:28:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.23 1996-12-16 22:36:50 cg Exp $'
 ! !