diff --git a/Fraktalism/spitpgm.f90 b/Fraktalism/spitpgm.f90
index f39e4f5..7f2c34d 100644
--- a/Fraktalism/spitpgm.f90
+++ b/Fraktalism/spitpgm.f90
@@ -15,7 +15,7 @@ subroutine spit_as_pgm(pic, fname)
     integer   :: ix, iy
     real      :: fk, fpix
 
-    ! XXX print *, "> spit_as_pgm to ", fname
+    write(0, '(1X, A)') "> spit_as_pgm to " // trim(fname)
 
     open(newunit=io, file=fname)
     write (io, '(a2)') "P2"