diff --git a/c/print.c b/c/print.c
index 166d781..0e34601 100644
--- a/c/print.c
+++ b/c/print.c
@@ -39,10 +39,6 @@ static int outindent(int n, ios_t *f)
     ios_putc('\n', f);
     VPOS++;
     HPOS = n;
-    while (n >= 8) {
-        ios_putc('\t', f);
-        n -= 8;
-    }
     while (n) {
         ios_putc(' ', f);
         n--;
diff --git a/scheme-core/compiler.scm b/scheme-core/compiler.scm
index 7c15fde..de2d45d 100644
--- a/scheme-core/compiler.scm
+++ b/scheme-core/compiler.scm
@@ -666,7 +666,7 @@
           (begin (princ "\n")
                  (disassemble v (+ lev 1)))
           (print v)))
-    (dotimes (xx lev) (princ "\t"))
+    (dotimes (xx lev) (princ "  "))
     (princ "maxstack " (ref-int32-LE code 0) "\n")
     (let ((i 4)
           (N (length code)))
@@ -677,9 +677,9 @@
                                                    k)))
                                       #f Instructions)))
                (if (> i 4) (newline))
-               (dotimes (xx lev) (princ "\t"))
+               (dotimes (xx lev) (princ "  "))
                (princ (hex5 (- i 4)) ":  "
-                      (string inst) "\t")
+                      (string inst) "  ")
                (set! i (+ i 1))
                (case inst
                  ((loadv.l loadg.l setg.l)