diff --git a/examples/udp_server.scm b/examples/udp_server.scm
index 91a6014..bf32ef3 100644
--- a/examples/udp_server.scm
+++ b/examples/udp_server.scm
@@ -81,5 +81,8 @@
         (printf "~a~%" size)
         (printf "~a~%" port)
         (printf "~a~%" host)
-        (printf "~a~%" (ftype-ref string () buf))
+        (printf 
+          "~a~%" 
+          (char*->string
+            (make-ftype-pointer char buf)))
 ))))