diff --git a/asdf.lisp b/asdf.lisp
index 71d4da5698aa7fd960ad8ff529fa4ad2ff80cf3b..89d99297095504f9ed9a406245f42653849813ef 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.126 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.127 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -119,7 +119,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.126 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.127 $")
                                (colon (or (position #\: v) -1))
                                (dot (position #\. v)))
                           (and v colon dot
@@ -899,10 +899,6 @@ the head of the tree"))
   (cons (list 'compile-op (component-name c))
         (call-next-method)))
 
-(defmethod operation-done-p ((operation test-op) (c system))
-  "Testing a system is _never_ done."
-  nil)
-
 ;;; load-source-op
 
 (defclass load-source-op (basic-load-op) ())
@@ -940,6 +936,10 @@ the head of the tree"))
 (defmethod perform ((operation test-op) (c component))
   nil)
 
+(defmethod operation-done-p ((operation test-op) (c system))
+  "Testing a system is _never_ done."
+  nil)
+
 (defgeneric load-preferences (system operation)
   (:documentation
    "Deprecated - will be removed August 2008
diff --git a/test/test3.script b/test/test3.script
index 6b6b58f6c23054320eb65b00d38178fe1e6870f4..4c6f8f050bee75ddb674b29ad28fe27913e2f8ba 100644
--- a/test/test3.script
+++ b/test/test3.script
@@ -13,7 +13,9 @@
      (asdf:oos 'asdf:load-op 'test3)
    (asdf:missing-dependency (c)
      (format t "first test failed as expected: - ~%~A~%" c))
-   (:no-error (c) (error "should have failed, oops")))
+   (:no-error (c) 
+     (declare (ignore c))
+     (error "should have failed, oops")))
  (pushnew :f1 *features*)
  (asdf:oos 'asdf:load-op 'test3)
  (assert (probe-file (compile-file-pathname "file1")))