(define (set-title str)
  (receive (c v) (argc+argv)
    ((foreign-lambda* void ((c-string str) (c-pointer argv))
       "((char**) argv)[0] = str;")
     (object-evict str) v)))