diff --git a/distro/packages/tcl.scm b/distro/packages/tcl.scm
index 14d50f1373..d764f6b8ad 100644
--- a/distro/packages/tcl.scm
+++ b/distro/packages/tcl.scm
@@ -88,7 +88,14 @@ (define-public expect
              (string-append "--exec-prefix="
                             (assoc-ref %outputs "out")))
 
-       ;; FIXME: There are test failures.
+       #:phases (alist-cons-before
+                 'configure 'set-path-to-stty
+                 (lambda _
+                   (substitute* "configure"
+                     (("STTY_BIN=/bin/stty")
+                      (string-append "STTY_BIN=" (which "stty")))))
+                 %standard-phases)
+
        #:test-target "test"))
     (home-page "http://expect.nist.gov/")
     (synopsis