diff --git a/csp/test-classes.rkt b/csp/test-classes.rkt
index 39680cc9..a0bc28f5 100644
--- a/csp/test-classes.rkt
+++ b/csp/test-classes.rkt
@@ -45,11 +45,11 @@
 ;; FunctionConstraint, two ways: implicit and explicit
 (send problem reset)
 (send problem add-variables '(a b) '(1 2))
-(send problem add-constraint >) ; implicit
+(send problem add-constraint <) ; implicit
 (check-hash-items (send problem get-solution) #hash((a . 1) (b . 2)))
 (send problem reset)
 (send problem add-variables '(a b) '(1 2))
-(send problem add-constraint (new function-constraint% [func >])) ; explicit
+(send problem add-constraint (new function-constraint% [func <])) ; explicit
 (check-hash-items (send problem get-solution) #hash((a . 1) (b . 2)))
 
 ;; AllDifferentConstraint