diff --git a/BloubWorld/exportbloubs.f90 b/BloubWorld/exportbloubs.f90
index b628e71..80c00ca 100644
--- a/BloubWorld/exportbloubs.f90
+++ b/BloubWorld/exportbloubs.f90
@@ -1,4 +1,4 @@
-program genbloubs
+program exportbloubs
 
   use bloubspace
   implicit none
@@ -11,7 +11,7 @@ program genbloubs
   !       parsing command line
   i = IARGC()
   if (1 .ne. i) then
-    STOP ' :BAD COMMAND LINE'
+    STOP ' : BAD COMMAND LINE'
   endif
   call getarg(1, filename)