diff --git a/basis/compiler/cfg/debugger/debugger.factor b/basis/compiler/cfg/debugger/debugger.factor
index f28d3d7017..6842580e6e 100644
--- a/basis/compiler/cfg/debugger/debugger.factor
+++ b/basis/compiler/cfg/debugger/debugger.factor
@@ -51,7 +51,7 @@ M: ##phi insn.
 M: insn insn. tuple>array but-last [
         bl
     ] [
-        dup string? [ print ] [ pprint ] if
+        dup string? [ write ] [ pprint ] if
     ] interleave nl ;
 
 : block-header. ( bb -- )