diff --git a/example.lsp b/example.lsp
index 10f43e5..4b28228 100644
--- a/example.lsp
+++ b/example.lsp
@@ -2,7 +2,7 @@
   (spawn "cmd.exe" "/k" "set PROMPT=$$$S")
   (spawn "bash"))
 
-(defglobal ctrlc (format nil "~A" (convert 3 <character>)))
+(defglobal ctrlc (create-string 1 (convert 3 <character>)))
 (block main
   (while t
     (expect*