diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.ss
index 9206ebad8f..a0214745ff 100644
--- a/collects/browser/private/hyper.ss
+++ b/collects/browser/private/hyper.ss
@@ -259,7 +259,7 @@ A test case:
 		    (yield s))
 		  (let ([headers (get-headers/read-from-port progress)])
 		    ;; Page is a redirection?
-		    (let ([m (regexp-match "^HTTP/[^ ]+ 301 " headers)])
+		    (let ([m (regexp-match "^HTTP/[^ ]+ 30[12] " headers)])
 		      (when m
 			(let ([loc (extract-field "location" headers)])
 			  (when loc