diff --git a/Help/wrong-quantities.cl b/Help/wrong-quantities.cl index 2dea3f8dd..4b1ef255a 100644 --- a/Help/wrong-quantities.cl +++ b/Help/wrong-quantities.cl @@ -198,9 +198,10 @@ ;; Note that eval cannot have local unbound variables, since ;; these are collected by variables-in below. - ;; This can cause an error. - (unless best (error 'iterate-over-bindings - :tag (list model (iterate-over-bindings model)) + ;; This can cause an error. See Bug #1963 + (unless best (error 'log-condition:log-error + :tag (list 'extend-word-count model + (iterate-over-bindings model)) :text "extend-word-count not setting best")) best))