diff --git a/alexandria-tests.asd b/alexandria-tests.asd
index 6eb8e3a7474bb8817d6f97905b418ef08eb4c1fc..86317698acfc86d84ffead373c4907ab0388dc7f 100644
--- a/alexandria-tests.asd
+++ b/alexandria-tests.asd
@@ -5,12 +5,8 @@
   :depends-on (:alexandria #+sbcl :sb-rt #-sbcl :rt)
   :components ((:file "tests")))
 
-(defmethod operation-done-p
-    ((o test-op) (c (eql (find-system :alexandria-tests))))
-  nil)
-
 (defmethod perform ((o test-op) (c (eql (find-system :alexandria-tests))))
   (flet ((run-tests (&rest args)
            (apply (intern (string '#:run-tests) '#:alexandria-tests) args)))
     (run-tests :compiled nil)
-    (run-tests :compiled t)))
\ No newline at end of file
+    (run-tests :compiled t)))
diff --git a/alexandria.asd b/alexandria.asd
index 40f26771ebb5612dd8803fc3d93d0898c3893e38..045c360e8f22beef7a421dff7cbb5be54cdf9d37 100644
--- a/alexandria.asd
+++ b/alexandria.asd
@@ -65,4 +65,4 @@ the following constraints:
 
 (defmethod perform ((o test-op) (c (eql (find-system :alexandria))))
   (operate 'load-op :alexandria-tests)
-  (operate 'test-op :alexandria-tests))
\ No newline at end of file
+  (operate 'test-op :alexandria-tests))