diff --git a/os.rkt b/os.rkt
index abc3d14..268ff83 100644
--- a/os.rkt
+++ b/os.rkt
@@ -170,8 +170,7 @@
 (define (requeue-pollers state)
   (foldl (lambda (susp state)
 	   (if (suspension-polling? susp)
-	       (enqueue-runnable (lambda () ((suspension-k susp) (suspension-state susp)))
-				 state)
+	       (enqueue-runnable (lambda () ((suspension-k susp) (suspension-state susp))) state)
 	       (enqueue-suspension susp state)))
 	 (struct-copy vm state [suspensions '()])
 	 (vm-suspensions state)))
@@ -197,8 +196,8 @@
 (define (((dispatch-meta-message hid) message) state)
   (run-vm
    (foldl (match-suspension message
-			      (lambda (handler-hid message) (equal? hid handler-hid))
-			      extract-upward-meta-message-handlers)
+			    (lambda (handler-hid message) (equal? hid handler-hid))
+			    extract-upward-meta-message-handlers)
 	  (struct-copy vm state [suspensions '()])
 	  (vm-suspensions state))))
 
@@ -240,8 +239,8 @@
 
 (define (dispatch-message message state)
   (foldl (match-suspension message
-			     (vm-pattern-predicate state)
-			     suspension-message-handlers)
+			   (vm-pattern-predicate state)
+			   suspension-message-handlers)
 	 (struct-copy vm state [suspensions '()])
 	 (vm-suspensions state)))