--- a/Array.st	Sat Jan 08 18:18:10 1994 +0100
+++ b/Array.st	Sun Jan 09 22:11:39 1994 +0100
@@ -27,7 +27,7 @@
 are used very often in the system, some methods have been tuned by
 reimplementation as primitive.
 
-$Header: /cvs/stx/stx/libbasic/Array.st,v 1.6 1993-12-11 00:39:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Array.st,v 1.7 1994-01-09 21:11:39 claus Exp $
 
 written spring 89 by claus
 '!
@@ -65,7 +65,7 @@
         indx = _intVal(index) - 1;
         if (indx >= 0) {
             nIndex = (_qSize(self) - OHDR_SIZE) / sizeof(OBJ);
-	    if ((cls = _qClass(self)) != Array)
+            if ((cls = _qClass(self)) != Array)
                 indx += _intVal(_ClassInstPtr(cls)->c_ninstvars);
             if (indx < nIndex) {
                 RETURN ( _InstPtr(self)->i_instvars[indx] );
@@ -91,7 +91,7 @@
         indx = _intVal(index) - 1;
         if (indx >= 0) {
             nIndex = (_qSize(self) - OHDR_SIZE) / sizeof(OBJ);
-	    if ((cls = _qClass(self)) != Array)
+            if ((cls = _qClass(self)) != Array)
                 indx += _intVal(_ClassInstPtr(cls)->c_ninstvars);
             if (indx < nIndex) {
                 _InstPtr(self)->i_instvars[indx] = anObject;
@@ -404,7 +404,9 @@
 !Array methodsFor:'printing & storing'!
 
 isLiteral
-    "return true, if the receiver can be used as a literal"
+
+"return true, if the receiver can be used as a literal
+     (i.e. can be used in constant arrays)"
 
     self do:[:element |
         element isLiteral ifFalse:[^ false]