diff --git a/ssh-session.rkt b/ssh-session.rkt
index f3693b4..035798a 100644
--- a/ssh-session.rkt
+++ b/ssh-session.rkt
@@ -500,35 +500,35 @@
 		SSH_MSG_CHANNEL_REQUEST		handle-msg-channel-request))
 
 (define (handle-msg-global-request packet message conn)
-  (log-error "Unimplemented: handle-msg-global-request")
+  (log-error "TODO: Unimplemented: handle-msg-global-request")
   conn)
 
 (define (handle-msg-channel-open packet message conn)
-  (log-error "Unimplemented: handle-msg-channel-open")
+  (log-error "TODO: Unimplemented: handle-msg-channel-open")
   conn)
 
 (define (handle-msg-window-adjust packet message conn)
-  (log-error "Unimplemented: handle-msg-window-adjust")
+  (log-error "TODO: Unimplemented: handle-msg-window-adjust")
   conn)
 
 (define (handle-msg-channel-data packet message conn)
-  (log-error "Unimplemented: handle-msg-channel-data")
+  (log-error "TODO: Unimplemented: handle-msg-channel-data")
   conn)
 
 (define (handle-msg-channel-extended-data packet message conn)
-  (log-error "Unimplemented: handle-msg-channel-extended-data")
+  (log-error "TODO: Unimplemented: handle-msg-channel-extended-data")
   conn)
 
 (define (handle-msg-channel-eof packet message conn)
-  (log-error "Unimplemented: handle-msg-channel-eof")
+  (log-error "TODO: Unimplemented: handle-msg-channel-eof")
   conn)
 
 (define (handle-msg-channel-close packet message conn)
-  (log-error "Unimplemented: handle-msg-channel-close")
+  (log-error "TODO: Unimplemented: handle-msg-channel-close")
   conn)
 
 (define (handle-msg-channel-request packet message conn)
-  (log-error "Unimplemented: handle-msg-channel-request")
+  (log-error "TODO: Unimplemented: handle-msg-channel-request")
   conn)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;