--- a/MultiColListEntry.st	Fri May 15 11:23:54 2015 +0200
+++ b/MultiColListEntry.st	Wed May 20 12:28:31 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -9,8 +11,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libwidg2' }"
 
-"{ Package: 'stx:libwidg2' }"
+"{ NameSpace: Smalltalk }"
 
 ListEntry subclass:#MultiColListEntry
 	instanceVariableNames:'strings tabSpec'
@@ -469,9 +472,9 @@
     "replace the substring at column index"
 
     strings isNil ifTrue:[
-	strings := OrderedCollection new:index
+        strings := OrderedCollection new:index
     ].
-    index > strings size ifTrue:[strings grow:index].
+    strings ensureSizeAtLeast:index.
     strings at:index put:aString
 !
 
@@ -655,5 +658,6 @@
 !MultiColListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.28 2006-02-23 21:04:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.29 2015-05-20 10:28:31 cg Exp $'
 ! !
+