diff --git a/sci b/sci
index a83009b8..1bacd92d 160000
--- a/sci
+++ b/sci
@@ -1 +1 @@
-Subproject commit a83009b81b68d60e0c1dd91f3a730e117599a122
+Subproject commit 1bacd92dd03d753c84b01a70f9fceb61fc96b667
diff --git a/src/babashka/impl/pprint.clj b/src/babashka/impl/pprint.clj
index d1420cc4..d750ef73 100644
--- a/src/babashka/impl/pprint.clj
+++ b/src/babashka/impl/pprint.clj
@@ -89,7 +89,9 @@
    (pprint s @sci/out))
   ([s writer]
    (binding [pprint/*print-right-margin* @print-right-margin
-             pprint/*print-pprint-dispatch* @print-pprint-dispatch]
+             pprint/*print-pprint-dispatch* @print-pprint-dispatch
+             *print-meta* @sci/print-meta
+             *print-readably* @sci/print-readably]
      (pprint/pprint s writer))))
 
 (defn cl-format
diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj
index 8854383d..e6e03a93 100644
--- a/test/babashka/main_test.clj
+++ b/test/babashka/main_test.clj
@@ -700,6 +700,11 @@ true")))
 
 (vec (pmap f (map str (range 10000))))")))))
 
+(deftest print-readably-test
+  (is (= "\"foo\"" (bb nil "-e" "(binding [*print-readably* true] (pr-str \"foo\"))")))
+  (is (= "foo" (bb nil "-e" "(binding [*print-readably* false] (pr-str \"foo\"))")))
+  (is (= "foo\n" (bb nil "-e" "(binding [*print-readably* false] (with-out-str (clojure.pprint/pprint \"foo\")))"))))
+
 ;;;; Scratch
 
 (comment