webapp: Now allows restarting any threads that crash.

Command/WebApp.hs

@@ -110,7 +110,7 @@ firstRun = do
 	v <- newEmptyMVar
 	let callback a = Just $ a v
 	runAssistant d $ do
-		startNamedThread $
+		startNamedThread (Just urlrenderer) $
 			webAppThread d urlrenderer True 
 				(callback signaler)
 				(callback mainthread)