Comment 2 for bug 1811623

Managed to come up with a test case without looking at mcclim, let's see if fixing it will fix mcclim as well.

(funcall (compile nil `(lambda (m)
                         (let ((z (random 44))
                               (j (princ-to-string m)))
                           (multiple-value-bind (x y) (if m
                                                          (values z 2)
                                                          (values j 4))
                             (values x y )))))
         t)
=> "T", 2