diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index 9e364ddc5..8711e1dec 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -133,7 +133,7 @@
                          ((,subr ,msg ,args . ,rest)
                           (display-error #f (current-output-port) subr msg args rest))
                          (else
-                          (format #t "ERROR: Throw to key `~a' with args `~s'.\n" key args)))
+                          (format #t "ERROR: Throw to key `~a' with args `~s'.\n" k args)))
                        (force-output))))))
             ((eof-object? exp)
              (newline)
diff --git a/module/texinfo/docbook.scm b/module/texinfo/docbook.scm
index f760e5bd6..72779263a 100644
--- a/module/texinfo/docbook.scm
+++ b/module/texinfo/docbook.scm
@@ -1,6 +1,6 @@
 ;;;; (texinfo docbook) -- translating sdocbook into stexinfo
 ;;;;
-;;;; 	Copyright (C) 2009  Free Software Foundation, Inc.
+;;;; 	Copyright (C) 2009, 2010  Free Software Foundation, Inc.
 ;;;;    Copyright (C) 2007, 2009 Andy Wingo <wingo at pobox dot com>
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
@@ -30,12 +30,13 @@
 ;;; Code:
 
 (define-module (texinfo docbook)
-  :use-module (sxml fold)
-  :export (*sdocbook->stexi-rules*
-           *sdocbook-block-commands*
-           sdocbook-flatten
-           filter-empty-elements
-           replace-titles))
+  #:use-module (sxml fold)
+  #:use-module ((srfi srfi-1) #:select (fold))
+  #:export (*sdocbook->stexi-rules*
+            *sdocbook-block-commands*
+            sdocbook-flatten
+            filter-empty-elements
+            replace-titles))
 
 (define (identity . args)
   args)