Fixing bad change earlier

svn: r16299

collects/web-server/scribblings/tutorial/continue.scrbl

@@ -1,4 +1,4 @@
-#lang scribble/doc
+6#lang scribble/doc
 @(require scribble/manual
           (for-label scheme)
           (for-label web-server/servlet)

collects/web-server/scribblings/tutorial/examples/dummy-3.ss

@@ -14,7 +14,7 @@
 (define (initialize-blog! home)
   (define db (sqlite:open home))
   (define the-blog (make-blog db))
-  (with-handlers ([exn:fail? void])
+  (with-handlers ([exn void])
     (sqlite:exec/ignore db
                         (string-append
                          "CREATE TABLE posts "

collects/web-server/scribblings/tutorial/examples/model-2.ss

@@ -22,7 +22,7 @@
                               "This is another post"
                               (list)))))
           (define the-blog
-            (with-handlers ([exn:fail? log-missing-exn-handler])
+            (with-handlers ([exn log-missing-exn-handler])
               (with-input-from-file home read)))]
     (set-blog-home! the-blog (path->string home))
     the-blog))

collects/web-server/scribblings/tutorial/examples/model-3.ss

@@ -14,7 +14,7 @@
 (define (initialize-blog! home)
   (define db (sqlite:open home))
   (define the-blog (make-blog db))
-  (with-handlers ([exn:fail? void])
+  (with-handlers ([exn void])
     (sqlite:exec/ignore db
                         (string-append
                          "CREATE TABLE posts "