(define (set-proc-title str)
  (print "setting proc title to " str)
  (receive (c v) (argc+argv)
	   ((foreign-lambda* void ((c-string str) (c-pointer argv))
			     "static int orig_len = -1;
                              char *name = ((char**) argv)[0];
                              if (orig_len == -1) orig_len = strlen(name);
			      strncpy(name,str,orig_len);
			     ")
			     str v)))