[plt-scheme] schemeblock w/ pretty printing in scribble

The schemeblock form preserves the layout of its argument, but I have a 
case where I am programmatically generating the argument and its layout 
(as a string), but I can't get schemeblock to render it properly.

Here is my best guess:

#lang scribble/doc
@(require scribble/manual)

@(schemeblock
   (0
    1 2 3))

@(schemeblock
   #,(read-syntax #f (open-input-string "(0\n 1 2 3)")))

The first schemeblock preserves the layout of the list.  The second 
renders it as (0123).  How can I change the second example to produce 
the first result?

David