--- a/Array.st	Sat Aug 10 11:38:41 2013 +0200
+++ b/Array.st	Sat Aug 10 13:11:14 2013 +0200
@@ -1708,7 +1708,7 @@
         ] ifFalse:[
             s := WriteStream on:(String uninitializedNew:50).
         ].
-        limit := s position0Based + self maxPrint.
+        limit := s position + self maxPrint.
 
         self printElementsDo:[:element |
             firstOne ifFalse:[
@@ -1716,7 +1716,7 @@
             ] ifTrue:[
                 firstOne := false
             ].
-            (s position0Based >= limit) ifTrue:[
+            (s position >= limit) ifTrue:[
                 s ~~ aStream ifTrue:[
                     aStream nextPutAll:(s contents).
                 ].
@@ -2579,10 +2579,10 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.159 2013-08-10 09:38:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.160 2013-08-10 11:11:14 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.159 2013-08-10 09:38:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.160 2013-08-10 11:11:14 stefan Exp $'
 ! !