diff --git a/regression/modules/dynimport.yap b/regression/modules/dynimport.yap
new file mode 100644
index 000000000..09aa6bccd
--- /dev/null
+++ b/regression/modules/dynimport.yap
@@ -0,0 +1,17 @@
+
+:- module( dynimport, d/1).
+
+:- use_module( mod1 ).
+
+:- initialization( open('errors.md', write, _Out, [alias(user_error)]), now ).
+
+:- format(user_error, ' Report on dynamic module import.~n~n', []).
+
+d(2).
+
+:- format(user_error, ' + ok if ok~n~n~*c~n', [4,0'~,4,0'~]).
+
+:- initialization( ( mod1(_), writeln(ok) ), now ).
+
+:- format(user_error, '~*c~n', [4,0'~]).
+
diff --git a/regression/modules/mod1.yap b/regression/modules/mod1.yap
new file mode 100644
index 000000000..022b19b8e
--- /dev/null
+++ b/regression/modules/mod1.yap
@@ -0,0 +1,3 @@
+
+mod1(a).
+