logs upload: fix the recent change: use (PROG ... (RETURN <body>)) insteadof (TAGBODY) as TAGBODY returns NIL.