(define (set-proc-title str)
  (receive (c v) (argc+argv)
    ((foreign-lambda* void ((c-string str) (c-pointer argv))
       "char *name = ((char**) argv)[0];
strncpy(name,str,strlen(name));
")
     str v)))