diff --git a/simple.scm b/simple.scm
index 54cf6d1..8a48377 100644
--- a/simple.scm
+++ b/simple.scm
@@ -221,11 +221,7 @@
            ($ 'sid))))
 
 (define (redirect-to new-uri)
-  (display (string-append "<html><head><meta http-equiv=\"refresh\" content=\"0; URL="
-                          (cond ((string? new-uri) new-uri)
-                                ((uri-reference? new-uri) (uri->string new-uri))
-                                (else (abort "invalid URI construct")))
-                          "\"></head></html")))
+  (signal (make-property-condition 'redirect 'uri new-uri)))
 
 (define ($ var #!optional default/converter)
   (unless (http-request-variables)
