--- 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