diff --git a/tests/pcl.lisp b/tests/pcl.lisp
index dc594450369a220ca1409a0b245096f98c7cc40d..2fbf90c67e1ca692f4d1492a6ec414625817440a 100644
--- a/tests/pcl.lisp
+++ b/tests/pcl.lisp
@@ -19,68 +19,49 @@
      (defun ,name () ,form)
      (deftest ,name (,name) ,@values)))
 
-(require :defsystem)
+(require :asdf)
 
 (setf (logical-pathname-translations "pcl-test")
       (list (list "*.*.*"
 		  (merge-pathnames #p"pcl/*.*"
 				   *load-truename*))))
 
-(mk:defsystem :pcl-test
-    :initially-do (progn )
-    :source-pathname "pcl-test:"
-    :binary-pathname "pcl-test:"
-    :components
-    ((:file "pkg"
-	    :source-extension "lisp")
-     #+gerds-pcl
-     (:file "ctor"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "defclass"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "make-instance"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" #+gerds-pcl "ctor"))
-     (:file "reinitialize-instance"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "make-instance"))
-     (:file "slot-value"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "make-instance"))
-     (:file "slot-boundp"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "make-instance"))
-     (:file "slot-missing"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "make-instance"))
-     (:file "slot-accessors"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "make-instance"))
-     (:file "slot-type"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "slot-value"))
-     (:file "inline-access"
-	    :source-extension "lisp"
-	    :depends-on ("pkg" "slot-type"))
-     (:file "method-combination"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "pv"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "defgeneric"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "defmethod"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "find-method"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))
-     (:file "methods"
-	    :source-extension "lisp"
-	    :depends-on ("pkg"))))
+(asdf:defsystem :pcl-test
+  :pathname "pcl/"
+  :components
+  ((:file "pkg")
+   #+gerds-pcl
+   (:file "ctor"
+    :depends-on ("pkg"))
+   (:file "defclass"
+    :depends-on ("pkg"))
+   (:file "make-instance"
+    :depends-on ("pkg" #+gerds-pcl "ctor"))
+   (:file "reinitialize-instance"
+    :depends-on ("pkg" "make-instance"))
+   (:file "slot-value"
+    :depends-on ("pkg" "make-instance"))
+   (:file "slot-boundp"
+    :depends-on ("pkg" "make-instance"))
+   (:file "slot-missing"
+    :depends-on ("pkg" "make-instance"))
+   (:file "slot-accessors"
+    :depends-on ("pkg" "make-instance"))
+   (:file "slot-type"
+    :depends-on ("pkg" "slot-value"))
+   (:file "inline-access"
+    :depends-on ("pkg" "slot-type"))
+   (:file "method-combination"
+    :depends-on ("pkg"))
+   (:file "pv"
+    :depends-on ("pkg"))
+   (:file "defgeneric"
+    :depends-on ("pkg"))
+   (:file "defmethod"
+    :depends-on ("pkg"))
+   (:file "find-method"
+    :depends-on ("pkg"))
+   (:file "methods"
+    :depends-on ("pkg"))))
 
-(mk:oos :pcl-test :compile)
+(asdf:oos 'asdf:load-op :pcl-test)