diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index d3f76781a48c0c27fbc2589c997106e09f1d4e38..50e3178c7db01e47001e737d4411706806443905 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -2151,7 +2151,7 @@
    #'(lambda (form)
        (and (consp form)
 	    (or
-	     (and (member (car form) '(setq setf shiftf) :test #'eq)
+	     (and (member (car form) '(setq setf shiftf incf decf) :test #'eq)
 		  (eq (cadr form) var))
 	     (and (eql (car form) 'multiple-value-setq)
 		  (member var (cadr form))))))