Прмер из DrRacket не запускается

(require racket/class
         racket/gui/base/slideshow) вот так добавил

standard-module-name-resolver: collection not found
  for module path: racket/gui/base/slideshow
  collection: "racket/gui/base"
  in collection directories:
   /home/igor/.racket/6.1/collects
   /usr/share/racket/collects
   ... [146 additional linked and package directories] in: racket/gui/base/slideshowexception raised by error display handler: query-rows: no such table: modules; original exception raised: standard-module-name-resolver: collection not found
  for module path: racket/gui/base/slideshow
  collection: "racket/gui/base"
  in collection directories:
   /home/igor/.racket/6.1/collects
   /usr/share/racket/collects
   ... [146 additional linked and package directories]

(add-drawing (pict+code (circle 10)))
. . pict+code: undefined;
 cannot reference an identifier before its definition

 (define pict+code что сюда впихнуть)

. define: bad syntax (missing expression after identifier) in: (define pict+code)

(define-syntax pict+code
  (syntax-rules ()
    [(pict+code expr)
     (hc-append 10
                expr
                (code expr))]))

(define-syntax pict+code
  (syntax-rules ()    ;;<--- 
;;вот она, когда-то я так и не 
;;разобрался с этим, что и 
;;толкнуло меня использовать CL но без его макросистемы
    [(pict+code expr)
     (hc-append 10
                expr
                (code expr))]))

[(pict+code expr)
     (hc-append 10
                expr
                (code expr))]

(hc-append 10
           (circle 10)
           (code (circle 10)))

#lang racket
(require racket/class 
         racket/gui/base
         slideshow
         slideshow/code
         pict/flash)

(define-syntax pict+code
  (syntax-rules ()
    [(pict+code expr)
     (hc-append 10
                expr
                (code expr))]))

(define f (new frame% [label "My Art"]
                      [width 300]
                      [height 300]
                      [alignment '(center center)]))

(define (add-drawing p)
  (let ([drawer (make-pict-drawer p)])
    (new canvas% [parent f]
                 [style '(border)]
                 [paint-callback (lambda (self dc)
                                   (drawer dc 0 0))])))

> (add-drawing (pict+code (circle 10)))
(object:canvas% ...)
> (add-drawing (colorize (filled-flash 50 30) "yellow"))
(object:canvas% ...)