--- a/DataSetBuilder.st	Wed Apr 10 12:50:03 2002 +0200
+++ b/DataSetBuilder.st	Fri Apr 19 18:26:14 2002 +0200
@@ -2587,9 +2587,20 @@
 !
 
 labelFromColumn:aColumn
-
-    ^ aColumn rendererType == #rowSelector ifFalse:[aColumn label]
-                                           ifTrue: ['Row Selector'].
+    |label|
+
+    aColumn rendererType == #rowSelector ifTrue:[
+        ^ 'Row Selector'
+    ].
+    label := aColumn label.
+    label ifNil:[^ nil].
+
+    label isString ifTrue:[^ label].
+
+    label size > 0 ifTrue:[
+         label := label at:1.
+    ].
+    ^ label printString
 !
 
 labelInPreviewPressed:anIndex