diff --git a/lab/tcp-chargen-client.ss b/lab/tcp-chargen-client.ss
index 0c32748..72b5288 100755
--- a/lab/tcp-chargen-client.ss
+++ b/lab/tcp-chargen-client.ss
@@ -6,7 +6,7 @@
 ;;; and print everything that it returns.
 
 (define (chargen host)
-  (let-values ([(op ip) (tcp-connect host "chargen")])
+  (let-values ([(ip op) (tcp-connect host "chargen")])
     (let ([ip (transcoded-port ip (native-transcoder))])
       (close-output-port op)
       (call/cc
diff --git a/lab/tcp-connect-example.ss b/lab/tcp-connect-example.ss
index 4071a6c..46e01f5 100755
--- a/lab/tcp-connect-example.ss
+++ b/lab/tcp-connect-example.ss
@@ -6,7 +6,7 @@
 ;;; send a request and receive a response.
 
 (define (http-cat host)
-  (let-values ([(op ip) (tcp-connect host "http")])
+  (let-values ([(ip op) (tcp-connect host "http")])
     (let ([op (transcoded-port op (native-transcoder))]
           [ip (transcoded-port ip (native-transcoder))])
       (display "GET /\n" op)
diff --git a/lab/tcp-connect-nonblocking-example.ss b/lab/tcp-connect-nonblocking-example.ss
index 3a2d47f..73ff9b5 100755
--- a/lab/tcp-connect-nonblocking-example.ss
+++ b/lab/tcp-connect-nonblocking-example.ss
@@ -12,7 +12,7 @@
 ;;; it succeeds.  Pretty lame at this point, but it works.
 
 (define (http-cat host)
-  (let-values ([(op ip) (tcp-connect-nonblocking host "http")])
+  (let-values ([(ip op) (tcp-connect-nonblocking host "http")])
     (let ([op (transcoded-port op (native-transcoder))]
           [ip (transcoded-port ip (native-transcoder))])
       (display "GET /\n" op)
diff --git a/lab/tcp-pingpong.ss b/lab/tcp-pingpong.ss
index 3ed6158..a0217d8 100755
--- a/lab/tcp-pingpong.ss
+++ b/lab/tcp-pingpong.ss
@@ -12,7 +12,7 @@
 
 (define (echo host)
   (printf "Connecting\n")
-  (let-values ([(op ip) (tcp-connect host "echo")])
+  (let-values ([(ip op) (tcp-connect host "echo")])
     (printf "Connected\n")
     (let f ([bytes 0])
       (printf "~s " bytes)
diff --git a/scheme/last-revision b/scheme/last-revision
index 8ec6294..7d94180 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1811
+1812