diff --git a/starfield.f90 b/starfield.f90
index eae5378..b9e44b5 100644
--- a/starfield.f90
+++ b/starfield.f90
@@ -8,13 +8,14 @@ program starfield
   use genplotting
   implicit none
 
-  character(*), parameter :: scratch = "WS/starfield.scratch"
+  character(*), parameter :: projname = "starfield"
+  character(*), parameter :: scratch = "WS/"//projname//".scratch"
 
   write (0, '(A)') "----[ genplotting starfield ]----"
   call genp_init (0, scratch)
   call do_starfield (300)
   call genp_end (0)
-  call genp_do_render(scratch, "WS/a.tga", 512, 512)
+  call genp_do_render(scratch, "WS/"//projname//".tga", 512, 512)
 
 contains
 ! ---------------------------------------------------------