diff --git a/Fraktalism/Makefile b/Fraktalism/Makefile
index 34627a4..afcd599 100644
--- a/Fraktalism/Makefile
+++ b/Fraktalism/Makefile
@@ -1,12 +1,11 @@
 
 all:	voxelize evolvopick pickover julia lorentz essai
 
-GFOPT  = -Wall -Wextra -time -g -O -Imods/
+GFOPT  = -Wall -Wextra -time -g -O -Imods/ -I../Modules
 
 # ---------------------------------------------
-
-mods/spitpgm.o:		mods/spitpgm.f90 Makefile
-	gfortran $(GFOPT) -c $< -o $@
+# the module 'spitpgm' is now in $PROJECT/Modules
+#
 
 mods/points3d.o:	mods/points3d.f90 Makefile
 	gfortran $(GFOPT) -c $< -o $@
@@ -17,8 +16,7 @@ mods/xperiment.o:	mods/xperiment.f90 Makefile
 fraktals.o:	fraktals.f90 Makefile
 	gfortran $(GFOPT) -c $<
 
-OBJS  = mods/spitpgm.o mods/points3d.o mods/xperiment.o 	\
-	fraktals.o 
+OBJS  = mods/points3d.o mods/xperiment.o fraktals.o
 
 # ---------------------------------------------
 
diff --git a/Fraktalism/essai.f90 b/Fraktalism/essai.f90
index 89aa889..2dd0b4d 100644
--- a/Fraktalism/essai.f90
+++ b/Fraktalism/essai.f90
@@ -1,7 +1,7 @@
 !-----------------------------------------------------
 program essai
 
-  use spitpgm
+  use spitpgm            ! XXX moved in ../Modules 
   use fraktals
   use points3d
   use xperiment
diff --git a/Fraktalism/fraktals.f90 b/Fraktalism/fraktals.f90
index 526ee6d..7f64e84 100644
--- a/Fraktalism/fraktals.f90
+++ b/Fraktalism/fraktals.f90
@@ -183,7 +183,8 @@ subroutine lorentz_0(pic, count)
 ! XXX    double precision      :: ka, kb, kc, kd
 ! XXX    integer               :: i, w, h, px, py
 
-   write(0, *) "proc lorentz_0, count is ", count
+   write(0, *) "lorentz_0, picz  is ", ubound(pic)
+   write(0, *) "lorentz_0, count is ", count
 
 end subroutine lorentz_0