(define (maybe-touch F (D "")) (unless (file? F) (write-file F D)))
-(maybe-touch SITE:control.dat)
-(maybe-touch SITE:control.usage.dat "(0 0)")
-(maybe-touch SITE:wui.passwd)
+(maybe-touch SITE:control.dat "()\n")
+(maybe-touch SITE:control.usage.dat "(0 0)\n")
+(maybe-touch SITE:wui.passwd "aG91cmdsYXNz\n")