Index: Dialog/Find.pm
===================================================================
--- Dialog/Find.pm	(Revision 729)
+++ Dialog/Find.pm	(Arbeitskopie)
@@ -256,7 +256,7 @@
 	eval { $regex = qr/$search_term/m };
 	if ($@) {
 		my $main_window = Padre->ide->wx->main_window;
-		Wx::MessageBox(gettext("Cannot build regex for '%s'", $search_term), gettext("Search error"), Wx::wxOK, $main_window);
+		Wx::MessageBox(sprintf(gettext("Cannot build regex for '%s'"), $search_term), gettext("Search error"), Wx::wxOK, $main_window);
 		return;
 	}
 	return $regex;
Index: Dialog/ModuleStart.pm
===================================================================
--- Dialog/ModuleStart.pm	(Revision 729)
+++ Dialog/ModuleStart.pm	(Arbeitskopie)
@@ -118,7 +118,7 @@
 	my @fields = qw(_module_name_ _author_name_ _email_ _builder_choice_ _license_choice_);
 	foreach my $f (@fields) {
 		if (not $data->{$f}) {
-			Wx::MessageBox(gettext("Field %s was missing. Module not created.", $f), gettext("missing field"), Wx::wxOK, $main_window);
+			Wx::MessageBox(sprintf(gettext("Field %s was missing. Module not created."), $f), gettext("missing field"), Wx::wxOK, $main_window);
 			return;
 		}
 	}
@@ -135,7 +135,7 @@
 	Module::Starter::App->run;
 	@ARGV = ();
 	chdir $pwd;
-	Wx::MessageBox(gettext("%s apparantly created.", $data->{_module_name_}), gettext("Done"), Wx::wxOK, $main_window);
+	Wx::MessageBox(sprintf(gettext("%s apparantly created."), $data->{_module_name_}), gettext("Done"), Wx::wxOK, $main_window);
 
 	return;
 }
Index: MainWindow.pm
===================================================================
--- MainWindow.pm	(Revision 729)
+++ MainWindow.pm	(Arbeitskopie)
@@ -918,7 +918,7 @@
 	}
 
 	if (not $file) {
-		Wx::MessageBox(gettext("Could not find file '%s'", $selection), gettext("Open Selection"), Wx::wxOK, $self);
+		Wx::MessageBox(sprintf(gettext("Could not find file '%s'"), $selection), gettext("Open Selection"), Wx::wxOK, $self);
 		return;
 	}
 
@@ -1369,7 +1369,7 @@
 	my $code = $doc->text_get;
 	eval $code;
 	if ( $@ ) {
-		Wx::MessageBox(gettext("Error: %s", $@), gettext("Self error"), Wx::wxOK, $self);
+		Wx::MessageBox(sprintf(gettext("Error: %s"), $@), gettext("Self error"), Wx::wxOK, $self);
 		return;
 	}
 	return;