diff --git a/oop/goops.scm b/oop/goops.scm
index 005444736..f33c5a0a8 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -1306,7 +1306,7 @@
 					     can-go-in-now))))
 		(loop
 		 (filter (lambda (x) (not (eq? x choice)))
-			     elements)
+			 elements)
 		 constraints
 		 (append result (list choice)))))))))