[Use random four letter string in get-audio-path-name
clinton@unknownlamer.org**20080107224020
 Looks better than a variable length number
] hunk ./src/database.lisp 134
-				(format nil "~A-~D"
-					"audio" (random 1000 audio-random-state))
+				(let ((*random-state* audio-random-state))
+				  (arnesi:random-string 4))