diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
index 21e4ccdd06..65211a04c1 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
@@ -406,7 +406,8 @@
 
   (pattern (#%plain-app op:unboxed-fun .
              (~var call (float-complex-call-site-opt-expr #'op.unboxed-info)))
-    #:do [(log-arity-raising-opt "call to fun with unboxed args")]
+    #:do [(log-unboxing-opt "unboxed call site")
+          (log-arity-raising-opt "call to fun with unboxed args")]
     #:with opt #'(let*-values (call.bindings ...) (op call.args ...)))
 
   (pattern :float-complex-arith-opt-expr))
@@ -488,6 +489,7 @@
     #:with (boxed-binding ...) #'(binding-name)))
 
 ;; takes as argument a structure describing which arguments will be unboxed
+;; We cannot log opt here because this doesn't see the full original syntax
 (define-syntax-class (float-complex-call-site-opt-expr unboxed-info)
   #:commit
   #:attributes ((bindings 1) (args 1))
@@ -498,7 +500,6 @@
     #:with ((bindings ...) (args ...))
       (syntax-parse #'((unboxed-args orig-args) ...)
         [(e:possibly-unboxed ...)
-         (log-unboxing-opt "unboxed call site")
          #'((e.bindings ... ...)
             (e.real-binding ... ...
              e.imag-binding ... ...
diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt
index a3e881d0e4..a5eca312d0 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt
@@ -32,7 +32,8 @@
                    (~var operator (unboxed-let-opt-expr-internal #t))
                    (letrec-values _ loop-fun:unboxed-fun)) .
              (~var call (float-complex-call-site-opt-expr #'loop-fun.unboxed-info)))
-    #:do [(log-optimization "unboxed let loop" arity-raising-opt-msg #'loop-fun)]
+    #:do [(log-opt "unboxed call site" "Complex number unboxing")
+          (log-optimization "unboxed let loop" arity-raising-opt-msg #'loop-fun)]
     #:with opt #'(let*-values
                    (((op) operator.opt) call.bindings ...)
                    (op call.args ...))))