diff --git a/scheme/base.sld b/scheme/base.sld
index 86e0c6d6..84733470 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -136,10 +136,9 @@
         end
         (func (car lst) (foldr func end (cdr lst)))))
     (define (flush-output-port . port)
-      'TODO)
-;      (if (null? port)
-;        (Cyc-flush-output-port (current-output-port))
-;        (Cyc-flush-output-port (car port))))
+      (if (null? port)
+        (Cyc-flush-output-port (current-output-port))
+        (Cyc-flush-output-port (car port))))
     (define (write-char char . port)
       (if (null? port)
         (Cyc-write-char char (current-output-port))