diff --git a/sample-client.scm b/sample-client.scm
index 1362951f80c7bac18edb38769c9f16b013d13e80..8a4e20360671178465b5a146cf06c215d5aac145 100755
--- a/sample-client.scm
+++ b/sample-client.scm
@@ -24,7 +24,9 @@
 
 (define (run sock msg)
   (define resp (make-bytevector 512))
-  (send sock (dns-message->bytes msg))
+  ;; TODO pack bytevector here
+  (send sock (call-with-values (lambda () ((dns-message->bytes msg) (make-bytevector 100) 0))
+               (lambda (_ bv ptr) bv)))
   (recv! sock resp)
   (call-with-values (lambda () ((bytes->dns-message resp) 0))
     (lambda (resp _) resp)))