diff --git a/SWIG/Examples/test-suite/guile/casts_runme.scm b/SWIG/Examples/test-suite/guile/casts_runme.scm
index 17e7725f6..83f7f1df6 100644
--- a/SWIG/Examples/test-suite/guile/casts_runme.scm
+++ b/SWIG/Examples/test-suite/guile/casts_runme.scm
@@ -1,7 +1,7 @@
 ;; The SWIG modules have "passive" Linkage, i.e., they don't generate
 ;; Guile modules (namespaces) but simply put all the bindings into the
 ;; current module.  That's enough for such a simple test.
-(dynamic-call "scm_init_test_module" (dynamic-link "./libcasts.so"))
+(dynamic-call "scm_init_casts_module" (dynamic-link "./libcasts.so"))
 
 (define x (new-B))