stupid code-generation from Thomas fixed.
--- a/DataSetBuilder.st Mon Apr 12 13:17:14 1999 +0200
+++ b/DataSetBuilder.st Mon Apr 12 13:20:27 1999 +0200
@@ -2921,11 +2921,9 @@
cls := self resolveName:specClass.
dst := columns collect:[:aCol| aCol literalArrayEncoding ].
spc := WriteStream on:String new.
+ spc nextPutAll:' ^'.
UISpecification prettyPrintSpecArray:dst asArray on:spc indent:4.
spc := spc contents.
- idx := (spc indexOfNonSeparatorStartingAt:1) - 2.
-
- spc at:idx put:$^.
"/ if that method already exists, do not overwrite the category