diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp
index 184875374..a6fe46b0e 100644
--- a/contrib/asdf/asdf-ecl.lisp
+++ b/contrib/asdf/asdf-ecl.lisp
@@ -34,8 +34,9 @@
 
 (defmethod perform ((o load-op) (c cl-source-file))
   (loop for i in (input-files o c)
-	collect (let ((output (compile-file-pathname i)))
-		  (load output))))
+       unless (string= (pathname-type i) "fas")
+       collect (let ((output (compile-file-pathname i)))
+                 (load output))))
 
 #+nil
 (defmethod output-files ((o load-op) (c cl-source-file))