diff --git a/collects/web-server/scribblings/tutorial/continue.scrbl b/collects/web-server/scribblings/tutorial/continue.scrbl
index b366eb8322..99901a65c3 100644
--- a/collects/web-server/scribblings/tutorial/continue.scrbl
+++ b/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)
diff --git a/collects/web-server/scribblings/tutorial/examples/dummy-3.ss b/collects/web-server/scribblings/tutorial/examples/dummy-3.ss
index 574923e9a5..f007d226c0 100644
--- a/collects/web-server/scribblings/tutorial/examples/dummy-3.ss
+++ b/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 "
diff --git a/collects/web-server/scribblings/tutorial/examples/model-2.ss b/collects/web-server/scribblings/tutorial/examples/model-2.ss
index ee8c713a6f..f44b30802a 100644
--- a/collects/web-server/scribblings/tutorial/examples/model-2.ss
+++ b/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))
diff --git a/collects/web-server/scribblings/tutorial/examples/model-3.ss b/collects/web-server/scribblings/tutorial/examples/model-3.ss
index 4dc3a40331..f9dbfd0c93 100644
--- a/collects/web-server/scribblings/tutorial/examples/model-3.ss
+++ b/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 "