diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 2a24a87ca..89bff9469 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -995,10 +995,6 @@ If there is no handler at all, Guile prints an error and then exits."
 ;;; {Load Paths}
 ;;;
 
-;;; Here for backward compatability
-;;
-(define scheme-file-suffix (lambda () ".scm"))
-
 (define (in-vicinity vicinity file)
   (let ((tail (let ((len (string-length vicinity)))
                 (if (zero? len)
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 6c57514bb..bfc490f39 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -44,7 +44,8 @@
             error-catching-repl
             scm-style-repl
             apply-to-args
-            has-suffix?)
+            has-suffix?
+            scheme-file-suffix)
 
   #:replace (module-ref-submodule module-define-submodule!))
 
@@ -408,3 +409,9 @@ better yet, use the repl from `(system repl repl)'.")
   (issue-deprecation-warning 
    "`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed).")
   (string-suffix? suffix str))
+
+(define scheme-file-suffix
+  (lambda ()
+    (issue-deprecation-warning
+     "`scheme-file-suffix' is deprecated. Use `%load-extensions' instead.")
+    ".scm"))