diff --git a/lib/chibi/show/base.scm b/lib/chibi/show/base.scm
index 67ef57fa..695d457d 100644
--- a/lib/chibi/show/base.scm
+++ b/lib/chibi/show/base.scm
@@ -11,7 +11,7 @@
 
 (define-environment-monad Show-Env
   (sequence: sequence)
-  (bind: fn)
+  (bind: %fn)
   (bind-fork: fn-fork)
   (local: %with)
   (local!: update!)
@@ -32,6 +32,11 @@
    (writer env-writer env-writer-set!)
    (output env-output env-output-set!)))
 
+(define-syntax fn
+  (syntax-rules ()
+    ((fn vars expr ... fmt)
+     (%fn vars expr ... (displayed fmt)))))
+
 ;; The base formatting handles outputting raw strings and a simple,
 ;; configurable handler for formatting objects.