...

original commit: d5085ab0904f0b7a5ecbc6e81a8235962af667ec

collects/framework/private/scheme.ss

@@ -49,6 +49,13 @@
           (define/public (get-saved-snips) saved-snips)
           (field [sizing-text (format "~a   ~a" left-bracket right-bracket)])
 
+          (define/override (get-text offset num flattened?)
+            (apply string-append
+                   (map (lambda (snip)
+                          (send snip get-text 0 (send snip get-count) flattened?))
+                        saved-snips)))
+              
+          
           (define/override (copy)
             (instantiate (get-sexp-snip-class) ()
               (left-bracket left-bracket)