diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 99e63bce0..3627c27c6 100644
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -35,7 +35,7 @@
 ;;; but only when it isn't already present.
 
 (if (not (feature? 'readline))
-    (dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so")))
+    (load-extension "libguilereadline" "scm_init_readline"))
 
 (if (not (feature? 'readline))
     (scm-error 'misc-error