diff --git a/chaos/primitives/gen-print.lisp b/chaos/primitives/gen-print.lisp
index 2ddc4a9..82315ff 100644
--- a/chaos/primitives/gen-print.lisp
+++ b/chaos/primitives/gen-print.lisp
@@ -393,7 +393,7 @@
                         (princ ")" stream))))
                    ;; mix fix operators
                    (t (let ((prec-test (and (get-method-precedence hd)
-                                            (< prec (get-method-precedence hd)))) ; was <=
+                                            (<= prec (get-method-precedence hd))))
                             (assoc-test (method-is-associative hd))
                             (token-seq (operator-token-sequence
                                         (method-operator hd)))