diff --git a/NEWS b/NEWS
index 73e92a914..062bb1430 100644
--- a/NEWS
+++ b/NEWS
@@ -14,7 +14,8 @@ Changes since Guile 1.4:
 
 Example:
 
-(define m (make-module 1021 (list (resolve-interface '(ice-9 safe-r5rs)))))
+(use-modules (ice-9 safe))
+(define m (make-safe-module))
 ;;; m will now be a module containing only a safe subset of R5RS
 (eval-in-module '(+ 1 2) m) --> 3
 (eval-in-module 'load m) --> ERROR: Unbound variable: load
diff --git a/ice-9/safe.scm b/ice-9/safe.scm
index fe6da1a31..bd4fc377f 100644
--- a/ice-9/safe.scm
+++ b/ice-9/safe.scm
@@ -29,3 +29,6 @@
 		 (list n)
 		 '()))
   safe-r5rs-interface)
+
+(define-public (make-safe-module)
+  (make-module 1021 (list safe-r5rs-interface)))