--- a/DataSetBuilder.st	Tue Nov 24 17:56:30 1998 +0100
+++ b/DataSetBuilder.st	Sun Dec 27 10:18:46 1998 +0100
@@ -2406,10 +2406,12 @@
     columnView notNil ifTrue:[
         |previewColumns columnItems columnList|
         columnList     := List new.
-        previewColumns := columns deepCopy.
-        size           := previewColumns size.
-
-        size ~~ 0 ifTrue:[               
+        previewColumns := OrderedCollection new.
+
+        (size := columns size) ~~ 0 ifTrue:[
+            columns do:[:aCol|
+                previewColumns add:(aCol copy)
+            ].
             previewColumns keysAndValuesDo:[:anIndex :column| 
                 column readSelector:  #at:;
                     writeSelector: #at:put:;