tdf#120361 Store Berend_Ilko_Tom_Stella_Volker.stc as temporary

... at invoking uno:ChooseDesign, instead of saving it into user's
working directory.

Change-Id: I899b259faca7fbc6ba2f5cc4ac8638f34e5febc6
Reviewed-on: https://gerrit.libreoffice.org/66672
Tested-by: Jenkins
Reviewed-by: Michael Stahl <Michael.Stahl@cib.de>

wizards/source/template/Samples.xba

@@ -109,9 +109,9 @@ End Sub
 
 
 Sub SaveCurrentStyles(oDocument as Object)
-'This sub stores the current document in the user work directory
+'This sub stores the current document in the directory to hold temporary files.
 	On Error Goto ErrorOcurred
-	aTempURL = GetPathSettings("Work", False)
+	aTempURL = GetPathSettings("Temp", False)
 	Dim aRightMost as String
 	aRightMost = Right(aTempURL, 1)
 	if aRightMost = "/" Then