diff --git a/lib/srfi/143.sld b/lib/srfi/143.sld
index e780b286..a24102b6 100644
--- a/lib/srfi/143.sld
+++ b/lib/srfi/143.sld
@@ -23,7 +23,7 @@
    fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin
    fx+ fx- fxneg fx* fxabs fxsquare fxsqrt
    fxquotient fxremainder
-   fx+/carry fx-/carry fx+*/carry
+   fx+/carry fx-/carry fx*/carry
    fxnot fxand fxior fxxor
    fxarithmetic-shift fxarithmetic-shift-left
    fxarithmetic-shift-right
diff --git a/lib/srfi/143/fixnum.scm b/lib/srfi/143/fixnum.scm
index e79b3e83..c68e4a60 100644
--- a/lib/srfi/143/fixnum.scm
+++ b/lib/srfi/143/fixnum.scm
@@ -41,7 +41,7 @@
     (call-with-values (lambda () (balanced/ d (expt 2 fx-width)))
       (lambda (q r) (values r q)))))
 
-(define (fx+*/carry i j k)
+(define (fx*/carry i j k)
   (let ((s (+ (* i j) k)))
     (call-with-values (lambda () (balanced/ s (expt 2 fx-width)))
       (lambda (q r) (values r q)))))