--- a/DSVColumnView.st	Thu Sep 18 12:04:38 2008 +0200
+++ b/DSVColumnView.st	Fri Sep 19 10:32:11 2008 +0200
@@ -799,18 +799,21 @@
     |cid|
 
     cid := 0.
-    columnDescriptors := aColumnDescriptionList ? #().
-
-    columnDescriptors := columnDescriptors 
-        collect:
-            [:el||dsc lbl|
-                dsc := el isSequenceable 
-                            ifTrue:[DataSetColumnSpec decodeFromLiteralArray:el]
-                            ifFalse:[el].
-                cid := cid + 1.
-                lbl := DataSetLabel new description:dsc builder:builder on:labelView.
-                DataSetColumn new on:self description:dsc columnNumber:cid label:lbl
-            ].
+
+    aColumnDescriptionList isEmptyOrNil ifTrue:[
+        columnDescriptors := OrderedCollection new.
+    ] ifFalse:[
+        columnDescriptors := aColumnDescriptionList 
+            collect:
+                [:el||dsc lbl|
+                    dsc := el isSequenceable 
+                                ifTrue:[DataSetColumnSpec decodeFromLiteralArray:el]
+                                ifFalse:[el].
+                    cid := cid + 1.
+                    lbl := DataSetLabel new description:dsc builder:builder on:labelView.
+                    DataSetColumn new on:self description:dsc columnNumber:cid label:lbl
+                ].
+    ].
 
     cachedPreferredExtent := nil.
     labelView columns:columnDescriptors.
@@ -4549,5 +4552,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.242 2008-08-05 06:23:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.243 2008-09-19 08:32:11 ca Exp $'
 ! !