# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 923916027 -7200
# Node ID a19cdc7697509c1ad4b5eb9b3b17832adfc595a6
# Parent  cd4a620e6f948fab1345113df9fd8738451ac59c
stupid code-generation from Thomas fixed.

diff -r cd4a620e6f94 -r a19cdc769750 DataSetBuilder.st
--- 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