diff --git a/operate.lisp b/operate.lisp
index 0d994817bca919b667663aa8bd083904c551014a..0d86b757a44532f702628cc1a831a5c02d94bf3d 100644
--- a/operate.lisp
+++ b/operate.lisp
@@ -199,7 +199,7 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
 
   (defmethod resolve-dependency-combination (component (combinator (eql :require)) arguments)
     (unless (and (length=n-p arguments 1)
-		 (typep (car argument) '(or string (and symbol (not null)))))
+		 (typep (car arguments) '(or string (and symbol (not null)))))
       (error (compatfmt "~@<Bad dependency ~S for ~S. ~S takes one argument, a string or non-null symbol~@:>")
              (cons combinator arguments) component combinator))
     ;; :require must be prepared for some implementations providing modules using ASDF,
@@ -230,9 +230,10 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
           (handler-bind
               ((style-warning #'muffle-warning)
                (missing-component (constantly nil))
-               (uiop:fatal-condition #'(lambda (e)
-                          (format *error-output* (compatfmt "~@<ASDF could not load ~(~A~) because ~A.~@:>~%")
-                                  name e))))
+               (fatal-condition
+		#'(lambda (e)
+		    (format *error-output* (compatfmt "~@<ASDF could not load ~(~A~) because ~A.~@:>~%")
+			    name e))))
             (let ((*verbose-out* (make-broadcast-stream)))
               (let ((system (find-system module nil)))
                 (when system