diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index a9ef7e535..3b77ca198 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-31  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
+
+	* srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the
+	shared library.
+
 2001-05-31  Michael Livshin  <mlivshin@bigfoot.com>
 
 	* Makefile.am (MKDEP): copied from libguile/Makefile.am, just in
diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm
index 76fcc6d06..dc3821b7b 100644
--- a/srfi/srfi-13.scm
+++ b/srfi/srfi-13.scm
@@ -112,7 +112,7 @@
 
 (cond-expand-provide (current-module) '(srfi-13))
 
-(dynamic-call "scm_init_srfi_13" (dynamic-link "libguile-srfi-srfi-13-14"))
+(load-extension "libguile-srfi-srfi-13-14" "scm_init_srfi_13")
 
 (define string-hash
   (lambda (s . rest)
diff --git a/srfi/srfi-14.scm b/srfi/srfi-14.scm
index 1cea4e079..ae0e32a3b 100644
--- a/srfi/srfi-14.scm
+++ b/srfi/srfi-14.scm
@@ -92,7 +92,7 @@
 
 (cond-expand-provide (current-module) '(srfi-14))
 
-(dynamic-call "scm_init_srfi_14" (dynamic-link "libguile-srfi-srfi-13-14"))
+(load-extension "libguile-srfi-srfi-13-14" "scm_init_srfi_14")
 
 (define (->char-set x)
   (cond