diff --git a/R/greedyMix.R b/R/greedyMix.R
index ca38551..ab2928e 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -75,12 +75,12 @@ greedyMix <- function(
 			# ASK: remove?
 			# h0 = findobj('Tag','filename1_text');
 			# set(h0,'String',filename); clear h0;
-			cat(
+			message(
 				'When using data which are in BAPS-format,',
 				'you can specify the sampling populations of the',
 				'individuals by giving two additional files:',
 				'one containing the names of the populations,',
-				'the other containing the indices of the first',
+				'the other containing the indices of the first ',
 				'individuals of the populations.'
 			)
 			input_pops <- inputdlg(