Index: sqlite3.scm
===================================================================
--- sqlite3.scm	(revision 22247)
+++ sqlite3.scm	(working copy)
@@ -284,7 +284,7 @@
   (let/cc return
     (let ([r #f])
       (dynamic-wind
-        noop
+        void
         (lambda ()
           (handle-exceptions exn
             (print-error "in collation function" exn)
@@ -422,7 +422,7 @@
       (c-pointer ctx) (int n) (c-pointer args)) void
   (let/cc return
     (dynamic-wind
-      noop
+      void
       (lambda ()
         (handle-exceptions exn
           (print-error "in SQL function" exn)
@@ -444,7 +444,7 @@
       (c-pointer ctx) (int n) (c-pointer args)) void
   (let/cc return
     (dynamic-wind
-      noop
+      void
       (lambda ()
         (handle-exceptions exn
           (print-error "in step of SQL function" exn)
@@ -465,7 +465,7 @@
   (let/cc return
     (let ([agc (sqlite3_aggregate_context ctx)])
       (dynamic-wind
-        noop
+        void
         (lambda ()
           (handle-exceptions exn
             (print-error "in final of SQL function" exn)