diff --git a/src/iolib.asd b/src/iolib.asd
index 8151049ddb08f1e44b373d2443bc4fe8e4736fb2..5d3dd0d696f92c9dddc32edfb7f9dadca8628740 100644
--- a/src/iolib.asd
+++ b/src/iolib.asd
@@ -13,5 +13,6 @@
   :pathname "iolib/"
   :components ((:file "pkgdcl")))
 
-(defmethod perform ((o test-op) (c (eql (find-system :iolib))))
-  (oos 'test-op :iolib-tests))
+(defmethod asdf:perform ((o asdf:test-op)
+                         (c (eql (asdf:find-system :iolib))))
+  (asdf:test-system :iolib-tests))
diff --git a/tests/iolib-tests.asd b/tests/iolib-tests.asd
index c954c4ea52230161ff6db61bf0c11bdc42fe37ce..eb5034c5b6985fa165297c4dc80578682290460c 100644
--- a/tests/iolib-tests.asd
+++ b/tests/iolib-tests.asd
@@ -19,7 +19,7 @@
    (:file "streams" :depends-on ("pkgdcl" "defsuites"))
    (:file "sockets" :depends-on ("pkgdcl" "defsuites"))))
 
-(defmethod perform ((o test-op)
-                    (c (eql (find-system :iolib-tests))))
-  (operate 'load-op :iolib-tests)
-  (funcall (intern (symbol-name '#:run!) '#:5am) :iolib))
+(defmethod asdf:perform ((o asdf:test-op)
+                         (c (eql (asdf:find-system :iolib-tests))))
+  (asdf:load-system :iolib-tests)
+  (asdf/package:symbol-call :5am :run! :iolib))