diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 1bb477746..138ea16b7 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -125,6 +125,14 @@
 
 
 
+;; Before compiling, make sure any symbols are resolved in the (guile)
+;; module, the primary location of those symbols, rather than in
+;; (guile-user), the default module that we compile in.
+
+(eval-case
+ ((compile-toplevel)
+  (set-current-module (resolve-module '(guile)))))
+
 ;;; {Defmacros}
 ;;;
 ;;; Depends on: features, eval-case