[plt-scheme] Ugly hacks in slideshow?

Hi all,

I've been having a hard time understanding some issues of
slideshow.
There seems to have some ugly hacks in it.
The main issue of the post is the following:
(module test (lib "run.ss" "slideshow")
 
  (let ([orig (current-slide-assembler)])
    (current-slide-assembler
     (lambda (title sep content)
       (let* ((titlepic (if (not title)
                            full-page
                            (titlet title)))
              (title-w (if (not title) 0 (pict-width titlepic))))
         (rt-superimpose 
          (inset titlepic 0 (+ 25 margin))
          (cc-superimpose (orig #f sep content)
                          full-page))))))
  
  (define page-item/test
    (lambda (p)
      (inset (page-item p) 20 0)))
  
  (slide/title
   "test 1"
   (page-item "To the left")
   (page-item "Again to the left"))
  
  (slide/title
   "test 2"
   (page-item/test "oops, look to the title")
   (page-item/test "what happened?"))

  )


Why is the title also shifted in the second slide?

Another question, made already in another thread to which I
received no answer yet is if it is possible to have different
margin lengths? For example, the top margin should be twice has
the bottom margin, is this possible?

Cheers,

-- 
Paulo J. Matos : pocm [_at_] mega . ist . utl . pt
Instituto Superior Tecnico - Lisbon
Computer and Software Eng. - A.I.
 - > http://mega.ist.utl.pt/~pocm
---
        -> God had a deadline...
                So, he wrote it all in Lisp!