Merged from mvo-vcell-cleanup-1-branch.

[bpt/guile.git] / ice-9 / format.scm

diff --git a/ice-9/format.scm b/ice-9/format.scm
index abd13dd..ffc70f3 100644 (file)
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -1704,7 +1704,7 @@
 
 (define format format:format)
 ;; Thanks to Shuji Narazaki
-(variable-set! (builtin-variable 'format) format)
+(module-set! the-root-module 'format format)
 
 ;; If this is not possible then a continuation is used to recover
 ;; properly from a format error. In this case format returns #f.