diff --git a/code/load.lisp b/code/load.lisp
index 2144e68dde862b0ac9db5b940dbd83ce5d1f0aad..5154c157f8829e78903f1af311a44604bd0508ee 100644
--- a/code/load.lisp
+++ b/code/load.lisp
@@ -398,7 +398,8 @@
 	       (tn (probe-file pn)))
 	  (cond
 	   (tn
-	    (if (string-equal (pathname-type tn) "nfasl")
+	    (if (or (string-equal (pathname-type tn) "nfasl")
+		    (string-equal (pathname-type tn) "fasl"))
 		(with-open-file (file tn
 				      :direction :input
 				      :element-type '(unsigned-byte 8))