diff --git a/SWIG/Examples/test-suite/mzscheme/imports_runme.scm b/SWIG/Examples/test-suite/mzscheme/imports_runme.scm
new file mode 100644
index 000000000..ae636aaa7
--- /dev/null
+++ b/SWIG/Examples/test-suite/mzscheme/imports_runme.scm
@@ -0,0 +1,16 @@
+;;; This file is part of a test for SF bug #231619. 
+;;; It shows that the %import directive does not work properly in SWIG
+;;; 1.3a5:  Type information is not properly generated if a base class
+;;; comes from an %import-ed file. 
+
+(load-extension "imports_a.so")
+(load-extension "imports_b.so")
+
+(define x (new-B))
+
+;; This fails in 1.3a5 because the SWIG runtime code does not know
+;; that x (an instance of class B) can be passed to methods of class A. 
+
+(A-hello x)				
+
+(exit 0)