--- http.scm.~1.10.~	1970-01-01 10:00:01.000000000 +1000
+++ http.scm	2003-10-04 09:43:40.000000000 +1000
@@ -81,7 +81,7 @@
 (define-public (http:message-status-code msg) (vector-ref msg 1))
 (define-public (http:message-status-text msg) (vector-ref msg 2))
 (define-public (http:message-status-ok? msg)
-  (http:status-ok? (http:status-code msg)))
+  (http:status-ok? (http:message-status-code msg)))
 (define-public (http:status-ok? status)
   (char=? #\2 (string-ref status 0)))